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SPEED2,  A  COMPUTER  PROGRAM  FOR  THE  REDUCTION  OF 
DATA  FROM  AUTOMATIC  DATA  ACQUISITION  SYSTEMS 


Richard  D.  Peacock  and  John  M.  Smith 


The  voluminous  amount  of  data  that  can  be  collected 
by  automatic  data  acquisition  systems  requires  the  use  of 
a  digital  computer  for  the  reduction  of  data.   A  general 
purpose  computer  program  for  the  reduction  of  data  col- 
lected by  automatic  data  acquisition  systems  is  presented. 
The  program  is  written  with  the  ability  to  accept  data 
from  a  number  of  different  data  acquisition  systems,  with 
the  ability  to  check  the  correctness  of  data  included. 
Through  the  use  of  FORTRAN  computer  programming,  the  data 
can  be  converted  to  meaningful  scientific  and  engineering 
units.   The  data  can  then  be  presented  in  tabular,  printer 
plot  or  ink  pen  plot  form. 

The  program  is  documented,  and  detailed  instructions 
for  its  use,  with  examples,  are  presented.   The  use  of 
SPEED2  requires  some  knowledge  of  FORTRAN  programming 
language  and  the  executive  control  language  for  the 
computer  system  in  use. 

Key  words:   Computer  program;  data  reduction;  data 
acquisition  systems;  plotting. 


1 .  INTRODUCTION 

In  1968,  the  Building  Research  Division  of  the  National  Bureau  of 
Standards  (NBS)  approached  the  Computer  Services  Division  of  NBS  with  a 
proposal  concerning  the  design  of  a  series  of  computer  programs  to  facil- 
itate the  analysis  of  automatically  recorded  data.   During  the  following 
two  years,  a  system  of  computer  programs  called  SPEED  (Systematic  Plotting 
and  Evaluation  of  Enumerated  Data)  was  developed  and  tested.   This  system 
was  announced  at  the  Ninth  Annual  Technical  Symposium  of  the  Association 
for  Computing  Machinery  and  in  an  article  in  Computer  Graphics.   The  follow- 
ing paragraphs,  quoted  from  the  Computer  Graphics  article,  which  indicated 
the  need  for  SPEED  are  still  valid: 


"During  the  past  ten  years  the  use  of  data  acquisition  systems 
or  digital  scanning  systems  has  increased  many  fold.   Such  systems 
record  automatically  the  readings  of  a  number  of  instruments  on 
either  punched  paper  tape  or  magnetic  tape.   The  individual  char- 
acteristics of  the  various  commercially  available  digital  scanning 
systems  vary  greatly;  however  as  a  point  of  reference  it  may  be 
noted  that:   one  commercially  available  system  is  able  to  record 
the  readings  of  up  to  one  thousand  instruments;  another  digital 
scanning  system  is  able  to  read  a  clock  and  record  the  time  plus 
the  readings  of  up  to  twenty-five  instruments  in  2.3  seconds. 

The  use  of  digital  scanning  systems  offers  several  advantages 
to  the  research  scientist.   First,  their  rapid  recording  capa- 
bilities allow  for  more  complete  data  sampling.   Second,  auto- 
matically recorded  data  is  more  accurate  than  data  that  has  been 
recorded  manually. 

These  advantages  are  however,  to  some  extent,  counterbalanced 
by  several  problems  which  arise.   Two  problems  are  caused  by  the 
large  volume  of  recorded  data.   First,  it  is  difficult,  if  not 
impossible,  to  process  large  volumes  of  data  by  hand.   Thus,  the 
scientist  finds  it  necessary  to  make  use  of  the  computer.   Unfor- 
tunately, he  is  often  unfamiliar  with  the  capabilities  and  limita- 
tions of  this  device.   Second,  when  presented  with  a  large  volume 
of  data,  it  is  often  difficult  for  the  scientist  to  rapidly  inter- 
pret the  broad  characteristics  of  general  trends  that  may  be  present, 
Two  other  problems  arise  in  the  form  in  which  the  data  are  recorded. 
The  data  are  generally  recorded  in  millivolts  rather  than  standard 
units.   Thus,  some  conversion  process,  usually  a  linear  transfor- 
mation, is  required.   Furthermore,  the  recorded  data  are  not  usually 
directly  compatible  with  computers.   In  order  for  a  computer  to 
read  this  data  some  special  computer  program  must  be  used  to  read 
this  data  in  the  recorded  form  and  translate  it  into  the  internal 
computer  representation. " [1] 
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Numbers  in  brackets  refer  to  the  literature  references  listed  at  the  end 
of  this  report. 


During  the  nine  years  since  its  announcement,  SPEED  has  been 
widely  used  at  NBS  and  other  computer  installations.   SPEED  has  operated 
successfully  on  UNIVAC ,  IBM,  and  CDC  large-scale  computers  and  has  proved 
its  usefulness.   Unfortunately,  during  those  nine  years,  many  users  found 
it  convenient  to  modify  the  original  system.   This  has  led  to  the  existence 
of  different  versions  of  SPEED,  many  of  which  do  not  include  some  important 
features,  and  few  of  which  correspond  directly  to  the  original  (and  only) 
documentation . 

For  these  reasons,  SPEED  has  been  rewritten  with  the  new  system  titled 
SPEED2 .   The  goals  of  this  task  have  been: 

a.  To  provide  a  standardized  system  of  programs  with  appropriate 
current  documentation; 

b.  To  recover  features  lost  through  evolution  of  SPEED,  in  particular, 
the  handling  of  input  data; 

c.  To  provide  a  more  easily  readable  program  including  all  old  features 
and  several  new  features;  and 

d.  To  take  advantage  of  changes  in  computer  operating  systems. 

The  remainder  of  this  paper  provides  a  description  of  SPEED2  and 
instructions  for  its  use. 

Although  this  paper  is  meant  as  a  detailed  guide  to  the  use  of  the 
SPEED2  system,  some  knowledge  of  FORTRAN  programming  and  executive  system 
control  language  for  the  computer  in  use  is  assumed. 


2.   SPEED2,  PURPOSE  AND  STRUCTURE 

2.1    Purpose  of  SPEED2 

SPEED2  is  designed  to  aid  in  the'  analysis  of  experimental  data  composed 
of  a  set  of  readings  from  a  series  of  instruments.   Thus,  the  basic  data 
for  SPEED2  are  represented  as  a  matrix 

REED(i,j) 

where  the  row  index,  i,  refers  to  a  given  scan  through  the  series  of 
instruments,  with  i=l  corresponding  to  the  first  scan,  etc.   Typically, 
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data  acquisition  systems  scan  at  a  fixed  interval  of  time,  so  that  the 
row  index  will  also  refer  to  a  single  time  since  the  start  of  a  test. 
The  column  index,  j,  refers  to  the  readings  from  a  single  instrument. 
The  order  of  the  instruments  in  the  columns  of  the  array  is  controlled 
by  the  user  through  data  cards  read  during  the  execution  of  the  program. 

SPEED2  provides  the  capability  to  read  the  input  matrix  from  a  variety 
of  media  including  magnetic  tape,  paper  tape,  mass  storage  devices,  or 
punched  cards  (of  unconverted  or  converted  data) .   This  includes  input 
checking  and  appropriate  error  messages.   The  ability  to  modify  (correct 
or  alter)  individual  entries,  portions  of  rows  or  portions  of  columns,  or 
entire  rows  or  columns  of  the  matrix  is  included  in  SPEED2.   SPEED2  also 
provides  for  the  transformation  of  analog  instrument  readings  into  stan- 
dard units  through  linear  or  nonlinear  transformations.   This  transformed 
and  corrected  matrix  may  be  outputted  to  a  printer,  card  punch,  magnetic 
tape,  or  mass  storage  device.   The  user  may  generate  printer  plots  or  ink 
pen  plots  of  the  readings  of  any  instrument  versus  a  series  of  readings 
from  other  instruments.   Finally,  the  ability  to  compare  entries  of  several 
matrices,  or  to  merge  several  matrices,  each  representing  a  different 
experiment,  is  included. 


2,2    Structure  of  SPEED2 

The  system,  SPEED2 ,  is  composed  of  a  main  program,  ambiguously  titled 
SPEED2;  four  major  subprograms  named  PLOTl,  PL0T2 ,  PLOTS,  and  PL0T4;  and 
a  number  of  minor  subprograms.   Several  of  these  subprograms  are  proprietary 
and/or  limited  in  use  to  a  UNIVAC  computer.   Consistent  use  of  variable 
names  among  the  various  subprograms  has  been  largely  achieved. 

The  major  subprogram,  PLOTl,  provides  a  means  to  read,  check,  and 
correct  the  input  data  recorded  by  a  variety  of  data  acquisition  systems 
as  shown  in  table  1.   In  addition,  the  user  may  specify  a  unique  data 
acquisition  system  through  card  input. 

The  major  subprogram,  PL0T2 ,  and  its  dependent  subroutines  have  the 
role  of  reading,  correcting,  transforming,  and  printing  of  the  input  matrix. 
This  segment  of  the  system  also  generates  printer  plots. 

The  system  segment  controlled  by  PL0T3  may  be  used  to  generate  pen 
plots  on  a  CalComp  plotter. 


The  segment  controlled  by  PL0T4  is  used  to  make  comparisons  between 
several  input  matrices  of  different  experiments. 


3.   MAIN  PROGRAM,  SPEED2 

The  main  program  of  the  SPEED2  system  is  also  titled  SPEED2. 
Although  a  relatively  short  program,  SPEED2  serves  several  vital  functions. 

First,  SPEED2  provides  dimensioning  for  many  of  the  arrays  used  in 
the  system  that  change  in  size  depending  on  the  size  of  the  input  matrix. 
For  the  NBS  UNIVAC  Computer,  these  dimensions  are  controlled  by  PARAMETER 
cards  in  the  program  SPEED2  as  shown  in  appendix  A: 

PARAMETER  NROW=30,  NCOL=50 
PARAMETER  MAXPLT=6 
PARAMETER  MAXCNL=150 

The  entries  on  the  first  card,  NROW  and  NCOL,  refer  to  the  number  of 
rows  (scans)  and  columns  (instruments) ,  respectively,  in  the  input  matrix. 
The  second  parameter  card  contains  a  single  parameter,  MAXPLT,  which 
specifies  the  maximum  number  of  curves  to  be  plotted  on  any  one  graph 
in  PL0T2  or  PLOTS.   The  parameter  MAXCNL  defines  the  actual  maximum  number 
of  instruments  recorded  by  the  data  acquisition  system  in  a  single  scan. 
It  may  be  larger  or  smaller  than  the  parameter  NCOL.   A  proper  choice  of 
values  is  important  to  the  efficient  operation  of  the  system. 

Second,  SPEED2  provides  direction  to  the  system.   Through  an  input 
card,  the  user  indicates  his  intention  to  use  a  particular  major  subpro- 
gram, PLOTl,  PL0T2,  PLOTS,  or  PL0T4 .   SPEED2  reads  this  input  card  and 
calls  the  proper  subroutine.   The  user  also  has  the  options,  as  indicated 
through  an  input  card,  to  process  several  data  sets  in  sequence.   SPEED2 
provides  this  capability,  and  also  erases  all  input  from  one  data  set 
before  proceeding  to  the  next. 


4.   PLOTl,  PURPOSE  AND  STRUCTURE 

PLOTl,  the  first  of  the  major  subprograms  of  SPEED2,  provides  for 
the  initial  input  of  data  from  a  data  acquisition  system;  checking  of 
this  input  data;  and  optional  output  of  the  data  to  card  punch,  printer, 
or  mass  storage.   With  a  minimum  of  data  cards,  the  user  can  check  the 
correctness  of  the  data  recorded  by  a  data  acquisition  system. 


PLOTl,  like  SPEED2,  reads  a  data  card  which  indicates  the  user's 
choice  of  a  number  of  options.   The  parameters  are  interpreted,  and  the 
appropriate  subroutines  are  called  to  perform  the  desired  tasks. 

The  first  card  read  by  PLOTl  contains  a  series  of  parameters  which 
indicate  the  particular  input  media  and  data  acquisition  system  used  to 
record  the  data,  and  the  action  to  be  taken  with  the  input  data  matrix. 
Options  include  printing  all,  some,  or  none  of  the  input  records;  punching 
the  input  data  onto  punched  cards  or  writing  to  mass  storage  or  magnetic 
tape;  printing  messages  when  errors  are  encountered  in  the  input  data;  and 
skipping  particular  records  of  data. 

In  addition  to  this  parameter  card,  PLOTl  requires  two  cards  which 
indicate  the  title  of  the  experiment  to  be  printed  at  the  top  of  each 
page  of  output.   All  other  cards  are  optional,  as  detailed  in  section  11. 


5.   PL0T2,  PURPOSE  AND  STRUCTURE 

PL0T2  is  the  second  of  the  major  subprograms  of  SPEED2 .   In  addition 
to  all  the  features  of  PLOTl,  PL0T2  provides  for  the  conversion  of  analog 
instrument  readings  into  standard  units  through  linear  or  nonlinear 
transformations  and  for  analysis  of  the  input  matrix. 

PL0T2,  like  SPEED2  and  PLOTl  reads  data  cards  which  indicate  the 
user's  choice  of  a  number  of  options.   These  cards  are  interpreted,  and 
proper  subroutines  are  called  to  perform  the  desired  tasks. 

The  first  card  read  by  PL0T2  contains  a  series  of  parameters  which 
indicate  the  particular  input  media  of  the  data  matrix  (magnetic  tape, 
paper  tape,  unconverted  data  cards,  converted  data  cards,  etc.),  the 
data  acquisition  system  used  to  record  the  data,  and  the  action  to  be 
taken  with  the  input  data  matrix.   Options  include  printing  all,  some, 
or  none  of  the  records;  punching  the  input  data  on  cards  or  writing  to 
mass  storage;  stopping  or  proceeding  after  reading  the  input;  printing 
some,  all,  or  no  input  error  messages;  and  skipping  specified  data  records, 

Next,  a  series  of  parameters  is  read  which  indicate  actions  to  be 
taken  with  the  converted  data  matrix.   Options  include  printing,  punching, 
and  writing  the  converted  matrix;  generating  graphs;  making  corrections 
to  the  matrix;  and  stopping  after  the  conversion  process  is  completed. 


The  remainder  of  the  input  is  composed  of  the  experiment  title, 
cards  defining  the  instrviments  (or  columns)  ,  corrections  (if  any)  ,  and 
directions  for  the  generation  of  graphs. 


5.1   Using  PL0T2 

In  order  to  use  PL0T2  efficiently,  the  user  should  first  examine 
the  data  collected  by  the  data  acquisition  system  to  determine  the  number 
of  rows  and  colvimns  needed  to  store  the  input  matrix.   The  user  should 
also  determine  at  this  point  whether  or  not  new  columns,  which  augment 
the  input  matrix,  are  to  be  generated  through  the  use  of  subprograms 
CONV  and  FIND.   If  necessary,  cards  should  be  prepared  to  change  the 
parameters  which  define  the  storage  area  for  the  input  matrix  and  cards 
should  be  prepared  to  modify  subprogram  CONV.   Instructions  for  changing 
subprogram  CONV  are  given  in  section  5.2,  and  examples  of  both  types  of 
changes  described  above  are  given  in  appendix  B.   These  cards  should  be 
preceded  by  the  required  executive  system  cards  and  followed  by  the 
appropriate  executive  system  cards  necessary  to  create  and  run  an 
executable  program. 

The  user  then  prepares  the  data  cards.   The  format  and  content  of 
each  data  card  is  given  in  section  11.   It  should  be  noted  that  the  main 
program,  SPEED2,  requires  two  data  cards  prior  to  those  cards  required 
by  PL0T2. 


5.2   Data  Transformation 

.  As  previously  noted,  instrumentation  data  readings  are  normally 
recorded  in  millivolts  or  volts.   To  convert  these  readings  to  standard 
units  of  temperature,  length,  etc.,  it  is  often  sufficient  to  transform 
the  reading  through  a  linear  equation.   Some  conversions,  however, 
are  considerably  more  complex  and  nonlinear. 


5.2.1   Linear  Transformations 

PL0T2  achieves  linear  transformations  as  follows:   The  input  data  to 
PL0T2  includes  a  series  of  cards  which  describe  each  instrument.   For  each 
instrument,  these  cards  contain  the  instrument's  number,  the  instrument's 
type,  and  the  instrument's  name.   The  name  is  used  only  for  identification 
purposes  in  printing  results.   The  instrument's  number  is  the  channel  number 
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assigned  by  the  data  recording  device.   The  instrument  type  is  a  user 
assigned  number.   Generally,  instruments  requiring  the  same  linear  trans- 
formation are  assigned  the  same  type.   However,  note  that  there  may  be 
only  one  instrument  of  type  1  (which  usually  records  time) .   Following 
the  instrument  descriptors,  PL0T2  requires  a  series  of  coefficient  cards. 
These  cards  contain  the  transformation  coefficients  for  each  type  used,  1 
through  n  (assuming  n  different  instrument  types  have  been  assigned) . 

All  of  this  data  is  passed  from  PL0T2  to  subprogram  CONV.   For  each 
instrument,  readings  have  been  stored  in  the  columns  of  the  input  matrix 
REED.   Thus  if  instrument  number  j  appears  on  the  i'th  descriptor  card, 
its  readings  are 

REED(a,i)  ,  Jl=l,]yiAXR(i) 

where  MAXR(i)  is  the  number  of  readings  of  instrument  number  j. 
Furthermore,  if  the  type  of  instrument  number  j  is  k,  that  is  ITYPE(i)=k, 
then  the  appropriate  transformation  coefficients  are  C (k)  and  ADD (k) . 
Hence,  the  transformation  required  is 

REED(«.,i)  =  REED(£,i)  *  C  (k)  +  ADD  (k)  ,  £=1  ,MAXR  (i) 


5.2.2    More  Complex  Transformations 

Nonlinear  or  more  complicated  transformations  require  the  user  to 
make  modifications  to  subprogram  CONV.   Such  modifications  are  made  by 
computer  programming  using  ordinary  FORTRAN  statements.   Clearly,  the 
user  will  wish  to  modify  a  given  column  of  the  input  matrix;  however,  the 
user  may  not  know  which  column  of  the  matrix  contains  the  readings  of  the 
instrument  in  question.   This  may  be  answered  through  the  use  of  subprogram 
FIND. 

Subprogram  FIND  has  four  arguments  and  is  invoked  through  a  FORTRAN 
statement  of  the  form 

CALL  FIND  (J,I,KH,NCOL) 

where  KH  is  the  array  of  instrument  numbers  in  use,  NCOL  is  the  maximum 
dimension  of  that  array,  and  J  is  an  instrument  number.   The  value  of  I, 
is  computed  by  FIND  and,  is  the  column  of  the  matrix  in  which  the  readings 


of  instrument  J  have  been  stored.   A  convenient  convention  to  follow 
is  the  form 

CALL  FIND  (72,L72,KH,NCOL) 

In  this  example,  the  readings  of  instrument  number  72  will  be  found 
in  column  L72  (location  of  instrument  72) . 

Having  located  the  proper  columns  of  the  matrix,  nonlinear  transfor- 
mations are  carried  out  through  FORTRAN  arithmetic  statements.   Thus  the 
following  simple  FORTRAN  DO  loop 

CALL  FIND  (71,L71,KH,NCOL) 
CALL  FIND  (23,L23,KH,NCOL) 
MAXROW=MAXR (L  7 1 ) 
DO  100  L=1,MAXR0W 

REED(L,L71)=REED(L,L71)+REED(L,L23) 
100   CONTINUE 

would  transform  the  readings  of  instrument  number  71  by  adding  to  it  the 
readings  of  instrument  number  23.  A  series  of  nonlinear  transformations 
might  be  programmed  as  shown  below: 

CALL  FIND  (71,L71,KH,NCOL) 
CALL  FIND  (72,L72,KH,NCOL) 
CALL  FIND  (7  3,L73,KH,NCOL) 
CALL  FIND  (74,L74,KH,NCOL) 
CALL  FIND  (80,L80,KH,NCOL) 
CALL  FIND  (81,L81,KH,NCOL) 
CALL  FIND  (82,L82,KH,NCOL) 
MAXROW=MAXR (L8 2 ) 
DO  120  I=1,MAXR0W 

REED (I , L71) =REED (I , L71) +REED (I , L72 ) +1 . 37 
REED(I,L73)=REED(I,L74)*1.231  +  5.6 

REED(I,L82)=SQRT(REED(I,L80) **2  +  REED (I , L81) **2) 
120   CONTINUE 

The  first  seven  cards  call  subprogram  FIND  as  described  above  to 
locate  the  instruments  to  be  converted.   The  instruments  are  then  used 
in  simple  calculations  to  serve  as  an  example  of  the  use  of  subprogram 
CONV.   Obviously,  much  more  complex  conversions  could  be  carried  out. 


The  above  cards  should  be  inserted  in  subprogram  CONV' as  noted  in 
the  examples  shown  in  appendix  B. 


5 . 3   Making  Corrections  to  the  Data  Matrix 

The  PL0T2  segment  also  provides  the  capability  of  modifying  or  cor- 
recting entries  in  the  input  matrix.   Any  number  of  corrections  may  be 
made;  however,  any  single  correction  may  apply  only  to  one  single  entry, 
consecutive  entries  in  a  single  column,  or  consecutive  entries  in  a  single 
row.   Corrections  are  expected  if  and  only  if  the  PL0T2  parameter  NCORR 
is  set  non-zero  by  the  user. 

Assuming  NCORR  is  non-zero,  PL0T2  v/ill  read  a  card  containing  the 
variables  IRL  (a  low  row  index)  ,  IRH  (a  high  row  index)  ,  ICL  (a  low  col\iinn 
index) ,  and  ICH  (a  high  column  index) .   The  following  restrictions  apply: 

a.  Either  IRL=IRH  or  ICL=ICH  or  both.   Note,  if  IRL=IRH,  all  correc- 
tions apply  to  a  single  row.   If  ICL=ICH,  all  corrections  apply  to  a  single 
coli-imn.   If  IRL=IRH  and  ICL=ICH,  a  single  entry  will  be  corrected. 

b.  IRL  is  greater  than  zero  but  less  than  or  equal  to  IRH  or  IRL  is 
less  than  zero.   IRL  less  than  zero  signifies  the  end  of  the  corrections. 

c.  ICL  is  greater  than  zero  but  less  than  or  equal  to  ICH,  or  both 
ICL  and  ICH  are  less  than  zero.   Note  that  both  ICL  and  ICH  must  be  both 
positive  or  both  negative.   If  they  are  negative,  they  are  interpreted  to 
be  instrument  numbers  rather  than  column  numbers.   In  this  case,  the  col- 
umn i  in  which  instrument  niimber  ICL  is  stored  is  found.   Similarly,  the 
column  j  in  which  instrument  number  ICH  is  stored  is  found.   Then  the 
values  of  ICL  and  ICH  are  replaced  by  i  and  j  respectively.   The  restric- 
tion becomes  i  is  greater  than  zero  but  less  than  or  equal  to  j. 

Failure  to  satisfy  any  of  the  above  restrictions  will  result  in  an 
error  message  being  printed,  and  may  result  in  all  following  data  cards 
being  out  of  order.   Thus,  particular  care  must  be  taken  in  the  prepara- 
tion of  this  card. 

There  are,  in  effect,  only  three  valid  combinations.   They  are: 

a.   IRL  is  equal  to  IRH  and  ICL  is  equal  to  ICH  meaning  correct  entry 
REED (IRL, ICL) . 
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b.  IRL  is  less  than  IRH  and  ICL  is  equal  to  ICH  meaning  correct 
entries  REED (IRL, ICL)   REED (IRL+1 , ICL) ,  ...,  REED (IRH- 1 , ICL) ,  and 
REED (IRH, ICL) . 

c.  IRL  is  equal  to  IRH  and  ICL  is  less  than  ICH  meaning  correct 
entries  REED (IRL, ICL) ,  REED (IRL, ICL+1) ,  ...,  REED (IRL, ICH-1) ,  and 
REED (IRL, ICH) . 

In  any  of  the  above  cases,  the  number  of  entries  to  be  corrected  is 

(IRH-IRL)  +  (ICH-ICL)  +  1 

These  entry  corrections  are  read  from  a  series  of  data  cards  punched 
in  the  format  8F10.0. 


5.4    Generating  Graphs 

PL0T2  provides  the  capability  to  generate  printer  plots  of  the  readings 
of  either  one  or  more  instruments  versus  those  of  several  other  instruments. 
This  is  done  only  if  the  input  parameter  NPLOT  is  set  non-zero  by  the  user. 

The  program  PL0T2  reads  a  card,  containing  up  to  80  characters, 
which  is  printed  as  a  heading  on  the  graph.   The  program  also  reads  a 
card  or  cards  which  contains  the  word  PLOT  (in  any  four  consecutive 
columns,  followed  by  a  series  of  instrument  numbers  that  specify  the 
instruments  to  be  plotted  typed  in  free  format  separated  by  at  least  one 
space.   There  are  two  allowable  formats  for  plot  cards.   If  the  card 
contains  a  comma  separating  instruments  into  pairs  such  as 

PLOT     3999,3017     5999,5017     3999,10017 

then  the  readings  from  the  first  instrument  of  each  pair  are  taken  to  be 
x-values  (abscissas)  and  the  second  instrument  of  each  pair  are  taken  to 
be  y-values  (ordinates) .   If  no  comma  is  found  on  any  of  the  cards,  such  as 

PLOT     999     017     019     021 

then,  the  first  mentioned  instrument's  readings  are  taken  to  be  x-values 
(abscissas) ,  and  readings  from  the  other  entered  instruments  are  taken  to 
be  y-values  (ordinates) .   From  one  to  n  curves  may  be  plotted  simultaneously 
on  a  single  graph,  where  n  equals  the  SPEED2  parameter  MAXPLT . 
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The  user  also  controls  the  lower  and  upper  limits  of  the  two  axes. 
A  card  is  read  containing  the  desired  lower  and  upper  limits  of  the  x 
and  Y  axes,  XL,  XH,  YL,  and  YH,  respectively.   Care  should  be  taken  in 
choosing  the  limits  to  insure  that  readable  values  are  printed  on  the 
axes.   One  important  note  is  that  points  which  fall  outside  the  ranges 
determined  for  the  two  axes,  are  neither  plotted  nor  noted. 

Finally,  the  program  reads  a  single  card  with  two  messages  of  40 
characters  each.   The  first  is  printed  vertically  as  a  title  for  the 
y-axis ,  and  the  second  is  printed  below  the  graph  as  a  title  for  the 
X-axis. 

After  printing  the  graph,  the  program  seeks  another  set  of  graph 
defining  cards.   A  blank  card  signals  the  end  of  the  plotting  phase  which 
is  the  final  portion  of  PL0T2 . 


6.   PL0T3,  CALCOMP  PEN  PLOTTING  OF  DATA 

The  third  of  the  major  subprograms  of  SPEED2,  PL0T3,  allows  the  user 
to  prepare  high  quality  ink  pen  plots.   PL0T3  is  designed  to  accept  data 
generated  by  PL0T2  and  prepare  a  magnetic  tape  to  be  plotted  off-line  on 
a  CalComp  plotter.   Many  of  the  subroutines  used  by  PLOTS  are  proprietary, 
however,  and  may  be  used  only  by  license  from  California  Computer  Products, 
Inc.   Like  the  other  major  subprograms,  PLOTS  reads  data  cards  which  indicate 
the  user's  choice  of  a  number  of  options  to  control  the  generation  of  the 
plots . 

The  first  two  cards  read  in  the  PLOTS  phase  contain  parameters  which 
specify  certain  parameters  which  control  the  generation  of  the  graphs  pro- 
duced.  The  user  can  specify  the  type  of  curve  generated,  either  a  smooth, 
fitted  curve,  or  a  curve  connecting  points  on  the  graph  with  straight  lines; 
whether  to  print  or  not  to  print  the  data;  the  course  of  action  to  be 
taken  if  points  are  found  that  would  be  out  of  bounds  on  the  graphs  pro- 
duced; whether  to  put  axes  on  two  or  four  sides  of  the  plots;  the  spacing 
of  plotting  symbols  on  the  curves  produced;  and  whether  or  not  to  read 
cards  to  produce  legends  on  the  curves.   In  addition,  the  user  can  spec- 
ify the  size  of  the  horizontal  and  vertical  axes  of  the  graphs,  and  a 
scaling  factor  to  increase  or  decrease  the  overall  size  of  the  plots 
produced. 
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A  number  of  cards  are  then  read  which  specify  the  experiment  title, 
define  the  instruments,  and  specify  the  plots  to  be  produced,  in  a  fash- 
ion similar  to  that  used  in  PL0T2.   Note  that  no  conversion  of  data  is 
made  in  PL0T3.   Only  reduced  data  (data  processed  by  PL0T2)  is  read  by 
PL0T3. 


6.1    Using  PL0T3 

As  with  PL0T2,  some  forethought  should  be  given  to  the  data  to  allow 
the  most  efficient  use  of  the  SPEED2  system.   The  user  should  examine  the 
data  to  determine  the  number  of  rows  and  columns  needed  to  store  the  input 
matrix  and  the  maximum  number  of  curves  on  any  single  graph.   If  necessary, 
cards  should  be  prepared  to  change  the  parameters  which  define  the  storage 
area  for  the  input  matrix  exactly  as  was  done  with  PL0T2.   Of  course,  these 
cards  should  be  preceded  by  and  followed  by  the  necessary  executive  system 
control  cards  to  create  an  executable  program. 

The  user  then  prepares  the  data  cards.   The  format  and  content  of 
each  card  is  defined  in  section  11.   As  with  PL0T2 ,  SPEED2  requires  data 
cards  prior  to  those  required  by  PLOTS. 


6.2   Generating  Pen  Plots 

PL0T3  is  designed  to  prepare  a  magnetic  tape  to  be  plotted  on  a 
CalComp  plotter.   For  each  plot  prepared,  the  readings  of  one  or  more 
instruments  are  plotted  versus  those  of  one  or  more  other  instruments. 

A  card  is  read  which  contains  a  figure  number  and  two  39  character 
title  lines  which  are  placed  below  the  plot  as  the  title  of  the  plot. 
Also  read  is  a  card  containing  two  messages  of  40  characters  each.   The 
first  is  printed  as  the  title  for  the  y-axis,  and  the  second  for  the 
X-axis.   All  of  the  titles  are  centered  along  their  respective  axes. 

PL0T3  has  the  capability  to  produce  plots  with  linear,  semi-log  (with 
the  log  axis  along  the  y-axis) ,  or  log-log  axes.   The  program  reads  a  card 
or  cards  containing  either  the  word  PLOT  for  a  linear  plot,  SPLOT  for  a 
semi-log  plot,  or  LPLOT  for  a  log-log  plot  in  any  consecutive  columns  fol- 
lowed by  a  series  of  instrument  numbers  that  specify  the  instruments  to 
be  plotted.   As  with  the  PL0T2  printer  graphs,  there  are  two  allowable 
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formats  for  the  cards.   If  the  card  contains  a  comma  separating  instruments 
into  pairs,  such  as 

PLOT  3999,3017  5999,5017  3999,10017 
SPLOT  3999,3017  5999,5017  3999,10017 
LPLOT     3999,3017     5999,5017     3999,10017 

the  readings  from  the  first  instrument  of  each  pair  are  taken  to  be  x- 
values  (abscissas) ,  and  the  second  instrument  of  each  pair  is  taken  to 
be  y-values  (ordinates) .   In  the  above  statements,  instrument  3999  is 
plotted  versus  3017,  5999  versus  5017,  and  3999  versus  10017.   If  no 
comma  is  found  on  any  of  the  cards,  such  as 

PLOT     999     017     019     021 

then  the  first  mentioned  instrument's  readings  are  taken  to  be  x-values 
(abscissas)  and  the  readings  from  the  other  entered  instruments  are  taken 
to  be  y-values  (ordinates) .   As  with  PL0T2,  up  to  MAXPLT  curves  may  be 
plotted  on  a  single  graph.   If  a  card  containing  instrument  numbers  contains 
a  semicolon  in  column  80,  then  another  card  is  read  and  interpreted  as 
containing  additional  instrument  numbers  for  plotting  on  the  same  graph. 
As  many  cards  as  are  needed  may  be  used  to  specify  instrument  numbers. 

The  user  can  also  control  the  lower  and  upper  limits  of  the  two  axes. 
A  card  is  read  containing  the  lower  and  upper  limits  of  each  axis.   Care 
should  be  taken  in  choosing  the  limits  to  insure  that  readable  values 
are  printed  on  the  axes.   However,  PL0T3  checks  these  numbers  to  insure 
that  readable  numbers  will  be  printed  and  may  modify  the  limits  to  insure 
readability. 

Finally,  the  program  reads  a  single  card  containing  two  messages  of 
40  characters  each.   The  first  is  printed  as  the  title  for  the  y-axis, 
and  the  second  for  the  x-axis.   As  with  the  graph  heading,  the  axis  titles 
should  be  centered  in  their  40-character  spaces  to  insure  that  they  will 
be  centered  properly  on  the  plot. 

For  example,  the  following  sequence  of  cards 

SPLOT     999,017     36,123     231,84 

93,998  41,86 

78,81 
0.0        250.       0.001      100. 
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OIRATE  OF  DECOMPOSITION 

TIME     (HOURS)  RATE     (1/SEC) 

would  prepare  a  single  semi-log  graph  of  instriiment  999  versus  017,  36  versus 
123,  231  versus  84,  93  versus  998,  41  versus  86,  and  78  versus  81.   The  x-axis 
limits  would  be  from  0.0  to  250.  and  the  y-axis  (a  log  scale)  from  0.001 
to  100.   The  title  for  the  plot  would  be  FIGURE  1:   RATE  OF  DECOMPOSITION. 
The  X  and  y  axes  would  be  labeled  TIME  (HOURS)  and  RATE  (1/SEC) , 
respectively . 

PL0T3  also  provides  a  means  for  the  user  to  place  a  legend  on  the 

graph.   The  legend  can  be  positioned  anywhere  on  the  graph  and  lines  of 

text,  up  to  60  characters  each,  can  be  optionally  prefixed  with  a  symbol 

to  identify  legends  for  individual  curves. 

After  generating  the  necessary  information  on  the  magnetic  tape,  the 
program  seeks  another  set  of  graph  defining  cards.   A  blank  card  signals 
the  end  of  the  plotting,  and  the  program  prepares  the  tape  for  plotting. 


7.   PL0T4,  COMBINING  SEVERAL  SETS  OF  DATA 

PL0T4  is  the  last  of  the  major  subprograms  of  the  SPEED2  system. 
PL0T4  allows  the  user  to  perform  analysis  and  plotting  on  a  number  of 
instruments  from  several  different  tests,  possibly  with  repeated  instru- 
ment numbers  in  the  tests.   By  renumbering  the  instriiments  to  include  a 
test  number  for  each  instrument,  PL0T4  creates  a  new  data  set  consisting 
of  the  readings  of  the  renumbered  instruments.   Further  analysis  may  then 
be  performed  on  this  new  data  set  using  PL0T2  or  PL0T3  as  desired. 

As  an  example,  consider  an  instrument  numbered  121  from  11  different 
tests  numbered  arbitrarily  test  3  through  test  13.   PL0T4  would  perform  a 
renumbering  of  the  11  instriiments  as  3121,  4121,  5121,  6121,  7121,  8121, 
9121,  10121,  11121,  12121,  and  13121,  respectively.   These  instruments 
may  then  be  punched  on  cards  or  written  to  mass  storage  and  referenced  in 
either  PL0T2  or  PL0T3  as  reduced  data  using  the  new  instrument  numbers 
3121  through  13121. 

7.1    Using  PL0T4 

As  with  the  previous  major  phases  of  SPEED2,  the  user  should  determine 
the  number  of  rows  and  columns  needed  to  store  the  readings  of  the  instruments 
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to  be  processed.   If  necessary,  cards  should  be  prepared  to " change 
the  parameters  which  define  the  storage  area  for  the  input  matrix.   Of 
course,  these  cards  should  be  preceded  by  the  required  executive  system 
cards  and  followed  by  the  appropriate  executive  system  cards  necessary  to 
create  an  executable  program. 

The  user  then  prepares  the  data  cards.   The  format  and  content  of  each 
data  card  is  described  in  detail  in  section  11  and  generally  outlined  below. 
It  must  be  noted  that  as  with  PLOTl,  PL0T2 ,  and  PL0T3,  the  main  program, 
SPEED2  requires  two  data  cards  prior  to  those  required  by  PL0T4 . 


7.2    Renumbering  of  Instruments  Using  PL0T4 

The  first  card  read  by  PL0T4  contains  two  parameters  that  specify 
whether  the  data  is  to  be  printed  and/or  punched  onto  cards  or  mass  stor- 
age.  After  reading  title  cards,  cards  defining  the  instruments  to  be 
selected  from  the  various  tests  are  included.   Each  instrument  card  con- 
tains a  test  number,  provided  by  the  user;  an  instrument  number  within 
the  test;  and  a  short  description  of  the  instrument.   The  remainder  of 
the  cards  is  comprised  of  the  reduced  data  from  each  test  preceded  by 
a  card  of  the  form 

TEST   nnn 

defining  a  test  number  for  each  test.   Specifications  for  the  data  cards 

are  given  in  section  11  along  with  examples  of  the  use  of  PL0T4  in  appendix  B, 


8.   RESTRICTIONS  ON  THE  USE  OF  SPEED2 

The  system,  SPEED2 ,  has  been  tested  and  continues  to  be  tested  by 
the  authors.   Users  are  requested  to  report  any  problems  which  arise 
through  the  use  of  SPEED2 .   Users  should  not  modify  any  of  the  programs 
in  this  system  with  the  exception  of  changing  the  parameters  (see  section  3) 
and  inserting  nonlinear  transformation  statements  in  subprogram  CONV 
(see  section  5).   Examples  of  these  changes  are  given  in  appendix  B.   Any 
other  substantive  changes  are  strongly  discouraged  without  a  detailed 
knowledge  of  the  internal  structure  of  the  SPEED2  system. 
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While  most  of  SPEED2  is  written  in  a  portable  subset  of  FORTRAN  IV  and 
thus  is  compatible  with  a  variety  of  computers,  a  number  of  exceptions  were 
found  when  the  subprograms  were  verified  using  the  VERIFIER  developed  by 
Bell  Laboratories  [2].   These  are  described  below: 

a.  Subprograms  EREXIT,  BYTE  and  NTRAN  are  written  in  UNIVAC  assembler 
language.   These  would  have  to  be  replaced  with  the  equivalent  routines  to 
be  used  on  another  machine. 

b.  A  number  of  subprograms  make  use  of  Hollerith  literals  in  arith- 
metic operations.   To  use  SPEED2  on  a  computer  other  than  a  UNIVAC  1100 
series  computer,  the  computer  must  have  the  ability  to  arithmetically 
manipulate  character  strings. 

c.  The  PARAMETER  statement  used  in  the  main  program,  SPEED2 ,  is 
unique  to  UNIVAC  FORTRAN.   Actual  dimension  limits  for  the  variables 
NROW,  NCOL,  MAXPLT,  MAXCNL,  INDIM,  OUTDIM,  NPTS ,  and  PLTDIM  must  be  sub- 
stituted in  the  main  program  to  use  SPEED2  on  another  computer.   An  alter- 
nate main  program  that  has  been  successfully  used  on  an  INTERDATA  7/32 
minicomputer  is  included  in  the  program  listing  in  appendix  A. 

d.  Finally,  PLOTS  makes  use  of  a  niomber  of  CalComp  proprietary 
subprograms  which  must  be  obtained  by  a  given  computer  installation  from 
California  Computer  Products,  Inc.   The  authors  believe  that  a  detailed 
description  of  the  many  secondary  subroutines  would  be  either  too  brief 
to  be  of  value  or  too  complex  to  be  comprehended.   Thus,  such  statements 
have  been  omitted  unless  absolutely  necessary. 


9.   NOTES  ON  THE  USE  OF  SPEED2 

9.1    Choice  of  NROW  and  NCOL 

Choosing  NROW  and  NCOL  should  be  done  with  care.   If  values  are 
chosen  which  are  too  small,  execution  will  be  terminated  when  the  input 
matrix  size  exceeds  the  allocated  size.   Conversely,  computer  use 
charges  are  based,  in  part,  on  the  allocated  storage.   Too  large  values 
of  NROW  and  NCOL  will  cause  excess  costs.   In  addition  to  the  input  matrix, 
REED,  being  dimensioned  NROW  by  NCOL,  the  arrays  KH,  ITYPE,  C,  X.  Y,  and 
NAME  all  depend  on  NCOL  for  their  size.   Thus,  the  storage  allocation  for 
all  of  these  arrays  is  approximately 
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(NROW+15)  *  (NCOL+13)  . 
On  the  NBS  UNIVAC  1108,  this  product  should  not  exceed  45000. 

9.2    Instrument  Definition  Cards 

As  noted  in  section  5,  each  instrument  is  defined  by  a  card  containing 
the  instrument  number,  type,  and  name.   The  use  of  these  data  in  the  con- 
version process  has  already  been  explained,  but  other  points  should  be 
mentioned. 

First,  subprogram  PRINT  prints  only  those  instruments  defined  through 
an  instrument  card.   Thus,  each  instrument  whose  readings  are  to  be  printed 
must  be  defined,  whether  the  instrument  is  real  or  whether  it  represents 
some  combination  of  other  instruments  formed  through  the  use  of  subprogram 
CONV.   Conversely,  if  the  user  wishes  to  divide  his  experiment  into  several 
smaller  sub-experiments,  he  may  omit  the  processing  of  data  for  any  instru- 
ments by  omitting  their  defining  cards.   One  exception  to  this  rule  is  the 
instrument  card  which  defines  time.   If  its  defining  card  is  left  out,  the 
•program  will  internally  reserve  space  for  it  in  the  array  REED.   However, 
if  its  card  is  not  included,  the  time  readings  will  not  be  available  for 
plotting  or  conversion. 

Second,  subprogram  PRINT  will  print  the  converted  instrument  readings, 
in  columns,  in  the  order  in  which  the  defining  cards  appear.   Thus,  the 
user  may  predetermine  this  printout  order  in  whatever  way  is  most  convenient 
and  may  easily  change  the  order  if  the  computer  run  is  repeated.   As  pre- 
viously mentioned,  each  column  will  be  headed  by  the  first  six  characters 
of  the  instrument's  name. 

Finally,  if  the  user  indicates  a  desire  to  punch  the  converted  matrix 
on  cards  or  mass  storage  through  setting  NPNCH  non-zero,  the  above  comments 
apply  to  these  cards  too. 

9.3    Unconverted  Input 

Data  acquisition  systems  record  readings  from  instruments  in  a  variety 
of  different  formats.   Table  1  presents  the  formats  used  in  a  niomber  of 
different  data  systems.   Several  characteristics  common  to  the  different 
systems  are  detailed  below. 


a.  A  time  reading  is  usually  prefixed  to  the  series  of  instrument 
readings.   Time  readings  and  instrument  readings  are  of  different  formats. 

b.  Time  readings  consist  of  digits  to  indicate  days,  hours,  minutes, 
and/or  seconds,  perhaps  separated  by  spaces  or  other  special  characters. 

c.  Each  instrument  reading  consists  of  characters  to  indicate  a 
channel  number  assigned  by  the  data  acquisition  system,  the  sign  of  the 
reading,  the  value  of  the  reading,  and  a  channel  overflow  indicator. 

d.  Within  a  single  scan,  the  time  reading  and  each  instrument  reading 
is  separated  by  spaces  and/or  other  special  characters. 

e.  Scans  are  separated  by  a  special  character  sequence  on  card 
images  or  by  a  record  separator  on  magnetic  tape. 

f.  The  end  of  the  test  data  recording  is  indicated  by  a  special 
character  sequence  or  by  an  end  of  file  mark  on  magnetic  tape. 

Table  2  presents  sample  scans  from  a  number  of  different  data  systems. 
Tables  1  and  2  also  provide  guidelines  to  follow  if  cards  are  to  be  prepared 
by  the  user. 


9 . 4   Converted  Input 

Converted  instrument  readings  also  require  that  data  be  prepared 
following  a  particular  format.   The  readings  from  each  instrument  are 
prepared  in  a  format  similar  to  table  2.   Each  set  of  readings  from  an 
instrument  begins  with  a  data  card  specifying  the  number  of  readings  of 
the  instrument  and  the  instrument  number  in  a  format  216,  followed  by 
a  series  of  cards  containing  the  readings.   The  readings,  in  the  format 
E10.5,  are  packed  eight  readings  per  card.   Finally,  the  end  of  test  is 
indicated  by  a  card  with  999  in  columns  78,  79,  and  80. 


9.5    Creating  New  Instruments 

Complex  transformations  made  through  the  use  of  subpro-jram  CONV  may 
include  new  instruments  representing  combinations  of  othc^-  instruments. 
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It  should  be  noted  that  the  user  must  specify  the  number  of  readings  in 
the  created  instrument  by  setting  MAXR  for  the  created  instrument. 


10.   DIAGNOSTIC  AND  ERROR  MESSAGES 

The  SPEED2  system  is  designed  to  intercept  and  interpret  most  user 
errors  and  to  print  a  diagnostic  or  error  message  indicating  the  error. 
While  most  messages  are  self-explanatory,  they  are  listed  below,  along 
with  explanations  of  the  errors  and  how  to  correct  them. 


10 . 1   Unconverted  Data  Checking 

When  the  unconverted  data  are  input  to  the  program  in  any  of  the 
available  forms ,  the  data  are  checked  for  errors  in  the  format  of  the 
data  or  for  illegal  characters,  etc.   If  errors  are  found,  a  message 
is  printed.   Five  different  messages  are  possible.   The  first  indicates 
an  error  in  the  unconverted  data.   This  can  either  be  an  illegal  char- 
acter in  the  data,  or  data  in  which  characters  are  out  of  sequence, 
bad,  or  missing.   The  message  takes  the  form 

CHARACTER  SEQUENCE  ERROR  RECORD:   i   CHARACTER:   j 

The  record  index,  i,  is  the  record  (scan)  number  of  the  particular 
record  in  error  and  the  character  index,  j,  is  the  number  of  the  actual 
character  in  error.   The  normal  action  taken  by  SPEED2  is  to  set  the 
particular  reading  in  error  to  zero  and  continue  processing.   If  the 
user  has  prepared  punched  data  cards  or  card  images  on  mass  storage  of 
the  unconverted  data,  and  the  user  wishes  to  correct  the  error,  the  data 
can  be  edited,  corrected,  and  the  program  re-run  with  the  corrected  set 
of  data.   The  user  could  also  simply  replace  the  reading  in  error  by 
using  subprogram  CORR  to  correct  the  reading. 

The  second  type  of  error  message  indicates  an  overflow  in  a  data 
reading  from  the  data  acquisition  system.   It  takes  the  fo2nn 

OVERFLOW  WARNING  RECORD:   i   CHARACTER:   j   CHANNEL:   k 

All  comments  made  for  the  previous  error  message  also  apply  for  this  diag- 
nostic warning.   The  channel  number  as  recorded  by  the  data  acquisition 
system,  k,  is  also  given. 
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The  third  type  of  message  indicates  simply  that  the  record  length  of 
a  single  scan  through  the  instruments  has  changed  from  the  last  scan.   It 
is  simply  a  warning  to  the  user  that  something  may  be  wrong  with  the  data. 
It  takes  the  form: 

RECORD  LENGTH  WARNING  RECORD:   i   OLD  LENGTPI :   j   NEW  LENGTH:   k 

The  record  number,  i,  the  length  of  the  last  scan,  j,  and  the  length  of 
the  current  scan,  k,  is  given. 

The  last  two  error  messages  indicate  a  duplicate  time  or  channel 
reading  in  a  single  scan.   The  messages  take  the  form: 

MULTIPLE  TIME  ERROR  RECORD:   i   CHARACTER:   j 

MULTIPLE  READING  WARNING  RECORD:   i   CHARACTER:   j   CHANNEL:   k 

The  record  number,  i,  and  the  character  number,  j,  are  given  for  both 
messages.   The  channel  number,  k,  is  also  given  for  the  channel  warning. 

10.2   Data  Cards  and  Format  Errors 

Many  user  errors  result  from  improper  placement  of  or  from  incorrect 
formats  on  data  cards  entered  by  the  user.   While  it  is  urged  that  the 
user  carefully  check  the  data  cards  before  running  SPEED2,  such  errors 
are  bound  to  occur.   Each  data  card  read  by  SPEED2  has  a  unique  identi- 
fication (SPEED2  Data  Card  Al,  PLOTS  Data  Card  D3  for  instance) .   If 
format  errors  are  found  on  data  cards,  program  execution  is  halted  and 
an  appropriate  error  message  is  printed.   Two  messages  are  possible  for 
read  errors,  but  both  take  the  same  form: 

FORMAT  ERROR  ON   is eg   DATA  CARD   icrd 

or 

END  OF  FILE  ENCOUNTERED  ON   iseg   DATA  CARD   icrd 
PRECEDING  DATA  CARDS  MAY  BE  IN  ERROR 

The  two  variables,  iseg  and  icrd,  are  the  program  segment  (SPEED2, 
PLOTl,  PL0T2,  PLOTS,  or  PL0T4)  and  the  card  identification  (Al ,  DS,  etc.). 
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10.3    Other  Messages  and  Diagnostics 

Many  other  error  messaged  are  printed  by  the  SPEED2  system  to  alert 
the  user  of  possible  errors  encountered  during  the  processing  of  data  by 
SPEED2.   A  short  explanation  is  provided  below  for  each  along  with  an 
explanation  of  how  it  can  be  corrected. 

ONLY  ONE  INSTRUMENT  OF  TYPE  1  IS  ALLOWED 
SECOND  FOUND  AT  INSTRUMENT  NUMBER   i 

Instrument  Type  1  is  reserved  to  indicate  the  time  channel. 
Obviously,  only  one  channel  is  allowed  for  this.   If  more  than  one  is 
found,  program  execution  is  stopped.   The  user  must  correct  the  instru- 
ment cards  so  there  is  only  one  instrument  of  Type  1,  the  time  channel. 

COLUMN  STORAGE  LIMITS  EXCEEDED  AT  COLUMN     i 
CHECK  PARAMETERS  NCOL  AND  NROW 

The  user  has  not  allowed  enough  room  for  the  instruments  he  wishes 
to  process  as  defined  by  the  instrument  defining  cards.   The  PARAMETER 
NCOL  should  be  increased  to  the  proper  size. 

ILLEGAL  INPUT  FILE  TYPE  SPECIFIED  FOR  INTYPE 

The  user  has  specified  an  illegal  number  for  the  input  file  parameter 
INTYPE,  or  there  is  a  format  error  on  the  data  card  on  which  INTYPE  is 
read. 

ROW  STORAGE  LIMITS  EXCEEDED  AT  ROW     i 
CHECK  PARAMETERS  NCOL  AND  NROW 

The  user  has  not  allowed  enough  room  for  the  number  of  scans  in  the 
experiment.   The  PARAMETER  NROW  should  be  increased  to  the  proper  size. 

READING  OF  INPUT  FILE  TERMINATED  BY  NTRAN  ERROR,  STATUS:     i 

An  unrecoverable  error  has  occurred  while  reading  the  magnetic  tape 
with  NTRAN.   All  data  read  in  and  processed  up  to  the  point  of  error  is 
processed  however.   There  are  ways  to  read  magnetic  tapes  with  such  errors; 
however,  none  appear  to  be  very  reliable.   (UNIVAC  1100  only) 
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INPUT  RECORD  SIZE  OF     i     EXCEEDS  BUFFER  SIZE 
CHECK  PARAMETER  NAXCNL 

The  standard  version  of  SPEED2  is  configured  for  a  maximum  of  150 
channels  of  data  per  record  (scan) .   More  than  the  maximum  number  of 
channels,  MAXCNL,  have  been  processed  in  one  record.   To  correct  this, 
check  the  input  data  and/or  increase  the  PARAT^ETER  MAXCNL. 

READING  TERMINATED  BY  READ  ERROR  OR  END  OF  FILE 

Reading  of  the  unconverted  input  data  has  been  terminated  by  a  read 

error  or  by  an  attempt  to  read  past  an  end  of  file.   Usually,  there  is  a 

format  error  on  the  input  punched  cards.   The  user  should  check  the  data 
to  insure  it  is  in  the  proper  format. 

NUMBER  OF  READINGS  FOR  INSTRUMENT  NUMBER     i     EXCEEDS  STORAGE  LIMITS, 

CHECK  PARAMETERS  NROW  AND  NCOL 

There  are  too  many  readings  of  reduced  data  for  instrument  number  i, 
or  there  is  a  format  error  on  the  card  defining  the  instrument  in  the 
reduced  data  set.   The  user  should  check  the  data  for  correctness  and/or 
increase  PARAMETER  NROW. 

ERROR  ON  FOLLOWING  CORRECTION  CARD 

The  user  has  specified  NCORR  non-zero  and  subprogram  CORR  has  found 
an  error  on  the  correction  cards.   The  user  should  check  the  format  of 
the  data  cards.   The  card  in  error  is  printed. 

ERROR  IN  SUBPROGRAM  FIND 
NO  REFERENCE  TO  INSTRUMENT  NUMBER     i     CAN  BE  FOUND 

Instrument  number  i  was  not  defined  on  an  instrument  card,  and  the 
instrument  was  referenced  during  transformations  using  subprogram  CONV. 
The  results  of  the  calculations  are  unpredictable,  and  the  user  should 
check  the  FORTRAN  modifications  to  subprogram  CONV  carefully. 
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11.   DATA  CARDS  FOR  THE  EXECUTION  OF  SPEED2 

The  data  cards  required  for  the  execution  of  SPEED2  fall  naturally 
into  five  major  divisions:   those  cards  required  by  the  main  program, 
SPEED2,  and  cards  directing  the  execution  of  each  of  the  major  phases 
of  SPEED2  —  PLOTl,  PL0T2 ,  PL0T3,  and  PL0T4,   In  addition,  the  data 
cards  for  each  major  phase  fall  into  distinct  parts.   These  are 
described  below. 


11.1    SPEED2  Data  Cards 

The  main  program  segment,  SPEED2 ,  requires  two  data  cards  to  control 
the  execution  of  the  other  program  segments.   The  content  and  format  of 
these  cards  is  described  in  table  3.   One  data  card  that  specifies  the 
number  of  sets  of  data  is  followed  by  sets  of  cards  defining  the  major 
phase  of  SPEED2  to  be  used  to  process  each  data  set  and  the  cards  required 
by  the  major  phase  specified  on  that  card.   NSETS  sets  of  these  cards  are 
included  in  the  total  set  of  data  cards. 


11.2    PLOTl  Data  Cards 

If  the  user  specified  PLOTl  on  SPEED2  data  card  A2 ,  then  cards  are 
read  as  defined  in  table  4  to  control  the  execution  of  PLOTl.   The  six 
distinct  parts  defined  for  PLOTl  are: 

A:   PLOTl  Control  Parameters  -  required 

B:   Experimental  Title  -  required 

C:   Data  Acquisition  System  Definition  -  optional 

(only  if  INTYPE=0) 
D:   Skipping  Records  of  Data  -  optional 

(only  if  INSKIP  is  non-zero) 
E:   Unconverted  Data  Cards  -  optional 

(only  if  INTYPE  specifies  cards) 
F:   Converted  Data  Cards  -  optional 

(only  if  INTYPE=4) 

Data  cards  Part  C  through  F  are  optional  and  are  only  required 
depending  upon  the  values  of  certain  control  parameters  defined  in  Part  A. 
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11.3    PL0T2  Data  Cards 

The  data  cards  required  for  the  execution  of  PL0T2  fall  naturally 
into  nine  distinct  parts.   Not  all  parts  are  required  in  each  run. 
Whether  or  not  a  certain  part  is  required  depends  on  the  values  of  certain 
input  parameters  described  below  and  detailed  in  table  5. 


H: 
I: 


PL0T2  Control  Parameters  -  required 

Experiment  Title  and  Instrument  Description  -  required 
Data  Acquisition  System  Definition  -  optional 

(only  if  INTYPE=0) 
Skipping  Records  of  Data  -  optional 

(only  if  INSKIP  is  non-zero) 
Unconverted  Data  Cards  -  optional 

(only  if  INTYPE  specifies  cards) 
Converted  Data  Cards  -  optional 

(only  if  INTYPE=4) 
Reading  Corrections  to  Data  -  optional 

(only  if  NCORR  is  non-zero) 

Cards  Read  By  the  User  in  CONV  -  optional 

Generating  Printer  Plots  -  optional 

(only  if  NPLOT  is  non-zero) 


11.4 


PLOTS  Data  Cards 


The  data  cards  for  the  execution  of  PL0T3,  described  in  table  6, 
fall  into  four  distinct  parts.   All  parts  are  required  for  execution. 


PLOTS  Control  Parameters  -  required 

Experiment  Title  and  Instrument  Definition  -  required 

Converted  Data  Cards  -  required 

Generating  Pen  Plots  -  required 
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11.5    PL0T4  Data  Cards 

The  data  cards  required  for  the  execution  of  PL0T4  are  described  in 
table  7.   The  three  major  parts  are: 


PL0T4  Control  Parameters  -  required 

Experiment  Title  and  Instrument  Definition  -  required 
Converted  Data  Cards  for  Each  Test         -  required 


12 .   REFERENCES 
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Table    2*       Da+a    Acqutsltton    Systen    Formats 

VIDAF.    5400    SERIES 


SPEEDS    Data    Acq,ui«ltlon    System    Format    Specification 


INPUT=TAPE 

HE ADi  NG=3* ( C ) (  + 1  ++-2 — 0900 )5*  C  V ) ( E ) 2* (K     ) 

TIME=3*(S)(K6)6*<S)2*<K    ) 

EOR=EOR 
EOF=EOF 


0006000000   0001000166   0012000016  0021000036  0031000016  0041000016 

0051000926   0061000036   0C72000016  0C81C0CC16  0092000016  01010C0046 

0112000016   0121000026   0132000016  0141000036  0151000036  0162000016 

0172000016   0181000026   0191C00066  0201000036  0212000006  0221000026 

(MAGNETIC  TAPE  RECORD  GAP) 

OOC600C003   C002CeOC06   0011000C16  C021C00036  0031000026  0C420C0016 

0051000026   0061000016   0072000016  0062000006  0092000006  0101000046 

0112000016   0121000036   01320C0016  0141000026  0151000046  0162000016 

0172000016   0181000036   0192000006  0201000046  0212000016  0222000016 

(MAGNETIC  TAPE  RECORD  GAP) 

(MAGNETIC  TAPE  END  OF  FILE) 
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TabLe    2*       Data    Ac<iutsttton    System    Formats*    cant* 
VIOAR    5400    SERIES 


SPEED2    Data    Acqulsttton    System    Format    Spec t ft  cat ( on 


INPUT=CARD    IMAGES 

REAOING=3*(C)C+l++-2 — 0900)5* (V> ( E)2*<K    ) 

TIME-3^(S)(K6)6'^(S)2*<K    ) 

ECR=<K    J(KX) 

E0F-(KF)(KI)<K1.)(KE)<KN)(K0) 


0006000000  0001000166  0012000016  0021000036  0031000016  0041000016 

0051000026  0061000036  0072000016  0081000016  0092000016  0101000046 

0112000016  0121000026  0132000016  0141000036  0151000036  0162000016 

0172000016  0181000026  0191000066  0201000036  0212000006  X 

0006000003  0002000006  0011000016  0021C00036  0031000026  0042000016 

0051000026  0061000016  0072000016  0082000006  0092000006  0101000046 

01120000ie  0121000036  0132000016  0141C00026  0151000046  0162000016 

01720C0016  0181000036  0192000006  C2C10CCG46  0212000016  X 
F I LEND 
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Table  2*   Data  Acq.ulsttton  Sj/stem  Formats*  cont* 
SPEED2  REDUCED  DATA 


SPEEDS  Data  Acquisition  Sys+era  Format  Specification 


357  31 
,  270C0+02 
.27000+02 
,270C0+02 
,27000+02 
,27000+02 
,27000+0  2 
,27000+02 
,27000+02 
,27000+02 
,27000+02 
,27000+02 
,27000+02 
,27000+02 
,27000+02 
,280C0+02 
,28000+02 
,28000+02 
,28000+02 
,28000+02 
,28000+02 
,28000+02 
,28000+02 
,28000+02 
,28C00+02 
,28003+02 
,290C0+02 
.2900  0+02 
,  290C0+0  2 
,29  00  0+02 
,30000+02 
,  300C0+0  2 
,30000+02 
,30000+02 
,30000+02 
,31000+02 
,31000+02 
,31000+02 


50TC  1 
.27000+02 
.27000+02 
.27000+02 
.27000+02 
•27000+02 
.27000+02 
•2700  0+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.270CO+02 
•28000+02 
.28000+02 
•27000+02 
.28000+02 
•28000+02 
.28000+02 
.28000+02 
•28000+02 
.26000+02 
•28000+02 
.29000+02 
•29  000+02 
.29000+02 
•  29  00  0  +  02 
.29000+02 
.30000+02 
•30000+02 
.30000+02 
•30000+02 
.30000+02 
•31000+02 
.31000+02 


.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
.27000+02 
.27000+02 
•  27000+02 
•27000+02 
.28000+02 
•27000+02 
.26000+02 
•27000+02 
.28000+02 
•28000+02 
.28000+02 
.28000+02 
•28000+02 
.28000+02 
•28000+02 
.29000+02 
•29000+02 
.29000+02 
•29000+02 
.30000+02 
.30000+02 
•30000+02 
.30000+02 
•30000+02 
.30000+02 
•31000+02 
.31000+02 


.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27COO+0  2 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.270C0+02 
•28000+02 
.28000+02 
•28000+02 
.28000+02 
•28000+02 
.28000+02 
.28000+02 
•28000+02 
.28000+02 
•29000+02 
.29000+02 
•29000+02 
.29000+02 
•29000+02 
.300C0+02 
.30000+02 
•30000+02 
.30000+02 
•30000+02 
.31000+02 
•31000+02 
.31000+02 


.270CO+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
.27000+02 
.27000+0  2 
•27000+02 
.27000+02 
.27000+02 
•28000+02 
.27000+02 
•28000+02 
.27000+02 
•28000+02 
.28000+02 
.28CO0+02 
.28000+02 
.29000+02 
•28000+02 
.29000+02 
•29000+02 
.29000+02 
•30000+02 
.30000+02 
.3C 000+02 
•30000+02 
.30000+02 
.30000+02 
.31000+02 
•31000+02 
.31000+02 


.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.28000+02 
•28000+02 
.28000+02 
•28000+02 
.28000+02 
.28000+02 
•28000+02 
.28000+02 
•29000+02 
.29000+02 
•29000+02 
.29000+02 
•29000+02 
.30000+02 
.30000+02 
•30000+02 
.30000+02 
.30000+02 
.31000+02 
•31000+02 
.31000+02 


.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
.27000+02 
.27000+02 
•28000+02 
.28000+02 
•28000+02 
.28000+02 
.28000+02 
•28000+02 
•28000+02 
•29000+02 
.29000+02 
•29000+02 
.29000+02 
•30000+02 
.30000+02 
.30000+02 
•30000+02 
.30000+02 
•30000+02 
.31000+02 
•31000+02 
.31000+02 


.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•27000+02 
•27000+02 
.27000+02 
•27000+02 
.27000+02 
•28000+02 
.28000+02 
•28000+02 
.28000+02 
.28000+02 
•28000+02 
.28000+02 
•29000+02 
.29000+02 
.29000+02 
.29000+02 
.29000+02 
.30000+02 
.30000+02 
•30000+02 
.30000+02 
•30000+02 
.31000+02 
•31000+02 
.31000+02 
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Table  2c   Data  Acquisition  System  Formats^  conte 
VIDAR  AUTOOATA  EIGHT 


SPEED2  Data  Acquisition  System  Format  Specification 


INPUT=CARO  IMAGES 

READING=(N)(K  )3*(C)(K  )(R0  ) SOCR )2*( A) (K  ) 

TIME=2*(H)(K:)2*(M)75*<K  ) 

E0R=80*(K  ) 

EOF=(KF){KI)(KL»(KE)(KN)(KD) 


05:2A 

5  105   0027.6  C  5  106   0030.0  C  5  107   0028.3  C  5  108   0030.2  C 

5  109   0441*0  C  1  110   010a52MV  1  111   000*87MV  2  112   0e0984  V 

05:25 

5  105   0027.3  C  5  106   0030.2  C  5  107   0028.3  C  5  108   0030.5  C 

5  109   0443e8  C  1  110   011»18MV  1  111   001«06MV  2  112   0*0994  V 

FILENO 
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Table    2*        Da  +  a    Ac<iu<s(t(on    Sj/s+em    Formats*    cont. 
ESTERLINE    ANGUS    PD20e4 


SPEED2    Da  +  a    Ac<iu  t  s  (t  <on    System    Fopmat    Specification 


1NPUT=TAPE 

READING=(KC)3*(C)(K    )(K    0*N)(+    — )6*(RC     )CK     )2*(A)2*<K     ) 

TIME=4*(<-N)2*(K    }2*(0)(K     )2*  (  H)(  K:  )2*  (  M  )  (  K  :  )24'(  SMK     )  (KH)  (  KR  )2*(  K     ) 

EOR=E0a 
EOF=EOF 


0002   01  14:25:00  HR  COOO  0073.2  OF  COOl    00.012  MV  C002  0  0075.1 

OF   CC03  0  0078.0  OF  C004  0  0079.3  OF  COOS  0  0080.3  OF  C006  0  0080.3 

OF   C007  0  0079.4  OF  COOS  0  0078o 1  OF  C009  0  0075.1  OF  COlO  0  0073.6 

OF   coil  0  0074.0  OF  C012  0  0072.1  OF  C013  0  0073.1  OF  C014  0  0074.3 

OF   C015  0  0074.7  OF  C016  0  0074.4  OF  C017  0  0074.8  OF  COlS  0  0074.4 
OF   C019  0  0072.6  OF 

( MAGNETIC  TAPE  RECORD  GAP) 

00  02       01     14:26:00  HF. 

OF       C003    0    0  077.8  OF 

CF       C007    0    0079.1  OF 

OF       COll     0    0074.4  OF 

OF       CO  15    0     0074.2  OF 

OF       C019    0    C072.2  OF 

(MAGNETIC  TAPE  RECORD  GAP) 

(MAGNETIC  TAPE  END  OF  FILE) 


COOO 

0073.2 

OF 

COOl 

00.008 

MV 

C002 

0 

0075.0 

C004 

0 

0079.0 

OF 

COOS 

0 

0079.7 

OF 

C006 

0 

0079.9 

COOS 

0 

C078.5 

OF 

C009 

0 

0075.3 

OF 

COlO 

0 

0073.8 

C012 

0 

0072.1 

OF 

CO  13 

0 

0072.6 

OF 

C014 

C 

0074.8 

C016 

0 

0073.5 

OF 

C017 

0 

0072.1 

OF 

C018 

0 

0074.4 
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Table    2. 


Data    Ac^utsitlon    Sys-teai    Formats*     cont* 
ESTERLINE    ANGUS    PD2C6* 


SPEE02    Data    Acquisition    System    Format    Sped  ft  cat  t  on 


INPUT=CARD    IMAGES 

READ1NG=(KC)3*(C)(K    HK    D*mi+    — )6*(R0     )(K     )2*(A)2*(K    ) 

TIME=4*(K-N>2*(K"    I2*(0)(K     )2>«<  (  H)  (  K:  )2*(M  )C  K  :  )2*(S)  (K     )  (KH  )  (KR  )  2*(  K     ) 

E0R3(K     )(KX) 

E0F=(KF)(KI1  (ia.)(KEX(KN)(KO) 


0002   01 

14:25:00 

HR 

COOO 

0073.2 

OF 

COOl 

00.012 

MV 

C002 

0 

0075.1 

OF   CO  03 

0  0078»0 

OF 

C004 

0 

0079.3 

OF 

COOS 

0 

0080.3 

OF 

C006 

0 

0080.3 

OF   C007 

0  0079.4 

OF 

C008 

0 

0078.1 

OF 

C009 

0 

0075.1 

OF 

COlO 

0 

0073.6 

OF   coil 

0  0074.0 

OF 

CO  12 

0 

0072.1 

OF 

CO  13 

0 

0073.1 

OF 

CO  14 

0 

0074.3 

OF   CO  15 

0  0074.7 

OF 

CO  16 

0 

0074.4 

OF 

C017 

0 

0074.8 

OF 

CO  18 

0 

0074.4 

OF   CO  19 

0  0072*6 

OF 

X 

0002   01 

14:26:00 

HR 

COOO 

0073.2 

OF 

COOl 

00.008 

MV 

C002 

0 

0075.0 

OF   C003 

0  0077.8 

OF 

C004 

0 

0079.0 

OF 

COOS 

0 

0079.7 

OF 

C006 

0 

C079.9 

OF   C007 

0  0079.1 

OF 

C008 

0 

0078cE 

OF 

C009 

0 

0075.3 

OF 

COlO 

0 

0073.8 

OF   coil 

0  0074.4 

OF 

C012 

0 

0072.1 

OF 

C013 

0 

0072.6 

OF 

C014 

0 

0074.8 

OF   C015 

0  0074.2 

OF 

C016 

0 

0073.5 

OF 

CO  17 

0 

0072.1 

OF 

CO  18 

0 

0074.4 

OF   C019 

0  0072.2 

OF 

X 

FILEND 
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Tabic  2«   Data  Acq.ulsttton  System  Formatst  cont* 
VIDAR  AUTOOATA  NINE 


SPEE02  Data  Ac(iutsItton  System  Format  Specification 


1NPUT=TAPE 

READING=3*(C>(K  ) ( ♦♦ 0  )5*<V0  ) ( VK  )3*(A)(E0  )fKX) 

TIME=3*(D)2*(H)(K: )2*(M)(K:)2«(S)4*(K  )(KX) 

EOR=EOR 

EOF=EOF 


22009:30:04 

XlEl 

+00029 

C0X152 

♦00027 

C0X1E3 

+00026 

C0X154 

+00023 

COX 

155 

■f0002e 

C0X156 

+00023 

C0X157 

+00022 

C0X158 

+00022 

C0X159 

+00022 

COX 

160 

4^00026 

C0X161 

+00024 

C0Xie2 

+00024 

C0X163 

+00024 

C0X164 

+00023 

COX 

165 

+00024 

C0X166 

+00023 

coxie7 

+0OC23 

coxie8 

+00023 

C0X169 

+00024 

COX 

170 

+00023 

C0X171 

+00022 

C0X172 

+00023 

C0X173 

+00026 

C0X180 

+09874 

MVOX 

181 

+10008 

MV0X182 

+10089 

MV0X183 

+10041 

MV0X184 

+10073 

MV0X185 

+10321 

MVOX 

186 

+C0C02 

MV0X187 

+00001 

NIV0X188 

+00001 

MV0X189 

+00000 

MV0X190 

+00001 

MVOX 

191 

+00070 

MV0X192 

+00123 

MV0X193 

+00022 

MV0X194 

-00004 

MV0X195 

-00007 

MVOX 

196 

+00057 

MVOX 

(MAGNETIC  TAPE  RECORD  GAP) 


22009:30:i9 

X151 

+00034 

C0X152 

+00031 

C0X153 

+00033 

C0X154 

+00047 

COX 

155 

+C0060 

C0X156 

+00022 

C0X157 

♦00022 

C0X158 

+00022 

C0X159 

+00022 

COX 

160 

+00025 

C0X161 

+00024 

C0X162 

+00024 

C0X163 

+00024 

C0X164 

+00023 

cox 

165 

+0  0024 

C0X166 

♦00023 

C0X167 

+00023 

C0X168 

♦00023 

C0X169 

♦00024 

cox 

170 

+00023 

C0X171 

+00022 

C0X172 

+000  22 

C0X173 

+000  26 

C0X180 

+09857 

MVOX 

181 

+10001 

MV0Xie2 

+10078 

MV0Xie3 

+10035 

MV0X184 

+10068 

MV0X185 

♦10320 

MVOX 

186 

+00002 

MV0X187 

+00000 

MV0X188 

+00000 

MV0X189 

+00001 

MV0X190 

+00000 

MVOX 

191 

+00082 

MV0X192 

+00130 

MV0X193 

+00012 

MVCX194 

+0003S 

MV0X195 

-00005 

MVOX 

196 

+00036 

MVOX 

(MAGNETIC  TAPE  RECORD  GAP) 
(MAGNETIC  TAPE  END  OF  FILE) 


34 


Table    2« 


Data    Acq,u  (  s  t 't  Ion    Systen    Fermatst    cont* 
VIDAR    AUTODATA    NINE 


SPEED2    Da-ta    Acquisttion    System    Format    Spec  t  f  (  cat  t  on 


INPUT=CARO    IMAGES 

READING=3*(C)<K     ) ( ++ — O     )5*(V0     ) ( VK     )3*(A)(E0    )(KX) 

TIME=3*(D)2*(H)(K: )2*(M)(K:)2*(Si4*(K     )(KX) 

EOR=(K    )(KX) 

EOF=(KF)(KI)(KL){KE)  (KNXKO) 


22009:30:04 

X151 

+00029 

C0X152 

+00027 

C0X153 

+00026 

C0X154 

+00028 

COX 

155 

+00028 

C0X156 

+00023 

C0X157 

+00022 

C0X158 

+00022 

C0X159 

+00022 

cox 

160 

••■00026 

C0X161 

+00024 

coxie2 

+00024 

C0X163 

+00024 

C0X164 

+00023 

cox 

165 

+0  0024 

C0X166 

+00023 

coxie7 

+00023 

C0X168 

+00023 

C0X169 

+00024 

cox 

170 

+000  23 

C0X171 

+00022 

C0X172 

+00023 

C0X173 

+00026 

coxieo 

+09874 

MVOX 

161 

+1C0C8 

MV0X182 

+10089 

Mvoxie3 

+10041 

MVOX  184 

+10073 

MV0X185 

+10321 

MVOX 

lee 

+00002 

MV0X187 

+00001 

MV0X188 

+00C01 

MV0X189 

+00000 

MV0X190 

+00001 

MVOX 

191 

+00070 

MV0X192 

+00123 

MV0X193 

+00022 

MV0X194 

-00004 

MV0X195 

-00007 

MVOX 

196 

+0  0057 

MVOX  X 

22009:30:19 

X151 

+00034 

C0X152 

+00031 

C0X153 

+00033 

C0X154 

+00047 

COX 

155 

+00060 

C0X156 

+00022 

C0X157 

+00022 

C0X158 

+00022 

C0X159 

+00022 

cox 

160 

+00025 

coxiei 

+00024 

C0X162 

+00024 

C0X163 

+00024 

C0X164 

+00023 

cox 

165 

+0  0024 

C0X166 

+00023 

00X167 

+0  0023 

C0X168 

♦0  0023 

C0X169 

+00024 

cox 

170 

+0  0023 

C0X171 

+00022 

C0X172 

+00022 

C0X173 

+00026 

C0X180 

+09  857 

MVOX 

181 

+10001 

MV0X182 

+10078 

Mvoxies 

+10035 

MV0X184 

+10068 

MV0X185 

+10320 

MVOX 

186 

+00002 

MV0X187 

+00000 

Mvoxiee 

+00000 

MV0X189 

+00001 

MV0X190 

+00000 

MVOX 

191 

+00082 

MV0X192 

+00130 

MV0X193 

+00012 

MV0X194 

+00039 

MV0X195 

-00005 

MVOX 

196 

+00036 

HVOX  X 

F I LEND 
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Table    2,        Data    Acq.uts(tton    Svs*em    For«a  +  st     cont« 
DORIC    DIGITREND    220 


SPEED2    Data    Ac(iul8(tton    Sj/sten    Foraat    Specification 


INPUT=CARD    IMAGES 

READIN{S=(0*K     )3*(C)(+ )  6*(S  )  (  A)  2*(  K     ) 

TIME=(K     )15*(K    N)2*(H)(K     ) 2* ( M ) ( K     J2*(S)(<     )<KH)*4*(K     ) 

EOR=70*(K     ) 

EOF=(KF)  (KIXKL)  (KE)(KN)(KD) 


60072777  00  00  30  H 

001  0063.2C  002  02.603M  003  0063.9C    004  02, 59SM    005  0061. 2C 

006  0064. 6C  C07  C0:?3.4C  008  036. 71M 

60072777  00  30  30  H 

001  0063. 2C  C02  02.589M  003  0064. OC    004  02.596M    005  0063. 7C 

006  0064.3C  007  0023.5C  008  04lc46M 

FILENO 
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APPENDIX  A 


PROGRAM  STATEMENT  LISTING  OF  SPEED2 


A  listing  of  all  subprograms  of  the  SPEED2  system  follows.   A  program 
flow  /  program  interdependency  diagram  is  shown  in  figure  A-1.   While  the 
user  need  not  be  concerned  with  most  subprograms,  all  are  included  for 
completeness.   Subprograms  SPEED2  and  CONV  are  the  only  two  that  users  would 
normally  change.   All  other  changes  should  only  be  attempted  by  those  with 
a  detailed  knowledge  of  the  SPEED2  system. 


Subprogram 

Comments 

Page 

SPEED2 

(UNI VAC 

1108 

only) 

A- 3 

SPEED2 

(a. 

Lternate 

main 

program) 

A- 6 

PLOTl 

A- 9 

PL0T2 

A-10 

PLOT  3 

A-15 

PLOT  4 

A-25 

DEFINE 

A-28 

DATAIN 

A-39 

DREAD 

A-43 

MATCH 

A-46 

DIGIT 

A-49 

SKIP 

A-50 

REDCIN 

A-51 

PRINT 

A-53 

PUNCH 

A-55 

CONV 

A-57 

CORK 

A-58 

FIND 

A-60 

DRAW 

A-61 

TEXT 

A-64 

RWERR 

(entry 

point  in  subprogram  ERROR) 

A-65 

RWEOF 

(entry 

point  in  subprogram  ERROR) 

A-65 

BYTE 

(UNIVAC 

1108 

only) 

A-66 

EREXIT 

(UNI VAC 

1108 

only) 

A-67 

MAP 

(UNIVAC 

1108 

only) 

A-68 

A-1 
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SUBPRCGRA'Ji:        SPEED2  PROGRAM    DRIVER  UNI  VAC     1108 

i;C  SPEED2 

2;  C 

3:  C    SYSTEMATIC  PLOTTING  AND  EVALUATION  OF  ENUMERATED  DATA 

4:  C    (SYSTEM  2) 

s:  c 

6:  C    WRITTEN  BY    JOHN  M.  SMITH,  COMPUTER  SERVICES  DIVISION,  NBS 

7:  C  RICHARD  D.  PEACOCK,  CENTER  FOR  FIRE  RESEARCH,  N8S 

8:  c 

9:  C    SPEED2  IS  A  COLLECTION  OF  ROUTINES  DESIGNED  TO  ROUTINELY  REDUCE  DATA 

10:  C    COLLECTED  FROM  DATA  ACQUISITION  SYSTEMS.   IT  IS  DESIGNED  TO  TRANS- 

11;  C    LATE  DATA  COLLECTED  BY  A  DATA  ACQUISITIC^J  SYSTEM,  PERFORM  LINEAR  AND 

12;  C    NON-LINEAR  TRANSFCRM(\T  IONS  ON  THE  DATA,  AND  TO  PRODUCE  PLOTS  OF  THE 

13:  C    REDUCED  DATA.    IN  ADDITION,  REPORT  QUALITY  PEN  PLOTS  CAN  BE  GENERAT- 

14:  C    ED  FOR  INCLUSION  IN  REPORTS. 

is:  C 

16:  c     ♦*♦**♦♦*♦**********♦♦♦****♦**♦♦*♦♦♦***♦♦♦***♦*******♦*♦**♦*♦**♦*** 

17:  c 

is:  C    SPEED2  COMPILE  TIME  PARAMETERS 

19:  c 

20:  C    NROW:       MAXIMUM  NUMBER  OF  ROWS  (SCANS)  IN  THE  INPUT  DATA 

21:  C    NCOL:       MAXIMUM  NUMBER  OF  COLUMNS  (INSTRUMENTS)  TO  BE  PROCESSED 

22:  C    MAXPLT:     maximum  number  of  curves  to  be  plotted  on  a  SINGLE  CURVE 

23:  c   maxcnl:   maximum  number  of  instruments  recorded  by  the  data  system 

24:  c 

25:  PARA'^ETER    NR0W  =  125,     NC0L  =  21 

26:  PARAMETER  MAXPLT=6 

27:  PARAMETER  MAXCNL=150 

28:  C 

29:  C     ***«♦***♦***♦*♦♦*****♦*♦♦**♦♦**♦*♦**♦*♦♦♦♦♦**♦♦*♦****♦♦«♦*♦******* 

30:  c 

31:  PARAMETER  PUTDI M=l 8*MAXCNL+1 60 

32:  PARAMETER  NPTS=MAXPLT*NRCW+2 

33:  PARAMETER  PLTDI M=2*MAXPLT 

34:  INTEGER  VERSN 

35:  COMMON  /ERRORS/  ICRD.ISEG 

36:  DIMENSION    REED( NROW , NCOL ), KH ( NCOL ), ITY=E (NCOL) , C( NCCL) , 

37:  2  NAME(NC0L,6)  ,  ADD(s)CDL)  ,  X(  NROW,  MAXPLT  ),  Y  (  NROW,  MAXPLT  ),  XP3(  NPTS)  , 

38:  3    YP3(NPTS) ,MAXR(NCDL), lOUT(OUTDIM) ,MCN_( MAXCNL) , IPC(PLTDIM) , 

39:  4     JM(PLTOIM> ,IPN(PLTDIM,6) ,VERSN( 10) ,ISKIP(320) 

40:  EQUIVALENCE  (X,XP3),  (Y,YP3) 

41 :  c 

42:  C    VERSN  IS  USED  FOR  IDENTIFICATION  PURPOSES  ONLY,  TO  IDENTIFY  THE 

43:  C    VERSION  CF  SPEED2  IN  USE 

44:  C 

45:  DATA  ( VERSN( I ),I=1,  10)  / 1H4,  1H5, IH. ,  IH 1 ,  IHl , IH  , 1 H 1 , IHl  , IHO , 1 H8/ 

46:  C 

47;  DATA  IBL  /IH  / 

48:  WRITE  (6,130)  ( VERSN (I ) , I = 1 , 1 0) 

49:  ISEG=1 

50:  ICRD=11 
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subprogram; 


SPEED2 


PROGRAM  DRIVER 


UNIVAC  1108 


51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
.  73 
74 
75 
76 
77 
78 
79 
8C 
31 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 


c 
c 
c 

c 

c 

10 


20 

30 
40 


50 


60 


70 


80 


90 
ICO 


SPEED2  DATA  CARD  Ai:     NSETS 

NSETS:    NUMBER  OF  SETS  CF  DATA  TO  BE  PROCESSED 

READ  (5, 140,ERR=110,END=120)  NSETS 
ZERO  ARRAYS  TQ  PREPARE  FOR  NEXT  DATA  SET 
DO  4  0  I=1.NC0L 
KH( I )=0 
ITYPE( I)=0 
C( I)=0. 
ADD( I ) =0. 
MAXR( I )=0 
DC  20  J=1»NR0W 
REED( J,  I  )=0. 
DC  30  K=l,6 
NAME( I t K  )  =  IBL 
CONTINUE 
DO  50  1=1,320 
ISKIP( I ) =0 
CONTINUE 

DC  60  I=1,MAXCNL 
MCNL(I)=0 
CONTINUE 
ISEG=1 
ICRD=12 


SPEED2_  DATA  CARD  A2: 


IPl  , IP2, IP3.IP4 


IPl:  IF  IPl  IS  NOSI-ZERC,  CALL  PLDTl 

IP2:  IF  IP2  IS  NON-ZERO,  CALL  PL0T2 

IP3:  IF  IP3  IS  N?N-ZERC,  CALL  PLCT3 

IP4:  IF  IP4  IS  NON-ZERO,  CALL  PLDT4 

READ  (5,140,ERR=110,END=120 )  I  PI , IP2. 1 =3 , I  =  4 

IF  ( IPl .EQ.O)  GO  TQ  70 

CALL  PLOTl  (NROW.NCOL.REED.KH, lOUT.OUTDI M,MAXR, MCNL , MAXCNL , I  SKIP) 

GO  TO  100 

IF  (IP2.EQ.0)  GO  TO  80 

CALL  PL0T2  ( NRC W , NCOL. REED . KH, ITYPE. C , ADD , NAME, X , Y , MAXPLT , I  OUT, OUT 
2DIM,MAXR,IPC,JM,P_TDIM, IPN.MCNL .MAXCNL, ISKIP ) 

GO  TO  100 

IF  (IP3.EQ.0)  GO  T3  90 

CALL  PLCT3  (NROW,NCOL,REED,KH,ITYPE,NAME,X,Y , MAX PLT , NSETS, N^TS , MAX 
2R,IPC,PLTDIM,IPN,1SKIP) 

GO  TO  100 

IF  (IP4.EQ.0)  GO  TO  100 

CALL  PL0T4  ( NROW, NCOL, REED, <H,1TYPE. NAME, MA XR, MCNL. MAXCNL, I SKIP) 

CCNTINUE 

NSETS=NSETS-1 

WRITE     (6,150)     (VERSN( I) ,1=1, 10) 

IF     (NSETS. GT.O)     GO    TO    10 
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B PROGRAM 

:   SPEE02        PROGRAM  DRIVER    UNI  VAC  1108 

loi: 

STOP 

102: 

110 

CALL  RWERR 

103: 

120 

CALL  RWEOF 

104: 

C 

105: 

c 

106: 

130 

FORMAT  (46H1 

SPEED2  DATA  REDUCTION  ROUTINES 

version:  *10A1) 

107: 

140 

FORMAT  (1615) 

106: 

150 

FORMAT  {22H1 

SPEED2     version:  .lOAl.lSH 

END  OF  DATA  SET » 

109: 

C 

no: 

END 
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subprogram:   SPEED2        ALTERNATE  PROGRAM  DRIVER    NON-UNIVAC  1108 
i:C  SPEED2 

2:  c 

3:  C    SYSTEMATIC  PLOTTING  AND  EVALUATION  OF  ENUMERATED  DATA 

4:  C    (SYSTEM  2) 

5:  C 

6:  C    WRITTEN  BY    JOHN  M.  SMITH,  COMPUTER  SERVICES  DIVISION,  NBS 

7:  C  RICHARD  D.  PEACOCK,  CENTER  FDR  FIRE  RESEARCH,  NBS 

8:  c 

9:  C    SPEED2  IS  A  COLLECTION  OF  ROUTINES  DESIGNED  TO  ROUTINELY  REDUCE  DATA 

10:  C    COLLECTED  FROM  DATA  ACQUISITION  SYSTEMS.   IT  IS  DESIGNED  TO  TRANS- 

li:  C    LATE  DATA  COLLECTED  BY  A  DATA  ACQUISITION  SYSTEM,  PERFORM  LINEAR  AND 

12:  C    NON-LINEAR  TRANSFORMATIONS  ON  THE  DATA,  AND  TO  PRODUCE  PLOTS  OF  THE 

13:  C    REDUCED  DATA.   IN  ADDITION,  REPORT  QUALITY  PEN  PLOTS  CAN  BE  GENERAT- 

14:  C    ED  FOR     INCLUSION  IN  REPORTS. 

15:  C 

16:  INTEGER  OUTDI M, PLTD I M, VERSN 

17:  COMMON  /ERRORS/  ICRD.ISEG 

18:  DIMENSION  REED<100,25),KH(25), I  TYPE (25) , C( 25 ), NAME ( 25,6 ) .ADD ( 251 , 

19:  2  X(100.6) ,Y( 100, 6) ,XP3(602) , YP3 (6 02) , MAXR( 25 ) , IOUT(2860) ,MCNL(150) 

20:  3,IPC(12),JM(12), IPN( 12, 6) , VERSN ( 1 0  )  , I SK I P (320 ) 

21:  EQUIVALENCE  ( X (1 , 1 ) , XP3 ( 1  J ) ,  ( Y ( 1 , I  J . YP3 ( 1 ) ) 

22:  C 

23:  C    VERSN  IS  USED  FOR  IDENTIFICATION  PURPOSES  ONLY,  TO  IDENTIFY  THE 

24:  C    VERSION  OF  SPEED2  IN  USE 

25:  C 

26:  DATA  ( VERSN(  I) , 1=1 ,  10)  /1H4,  1H5, 1 H. , IHl , IHl  , IH  , 1 HN , 1  HO , I HN , 1 H  / 

27:  c 

28:  DATA  IBL  /IH  / 

29:  c 

30:  c    ****************************************************************** 

31 :  c 

32:  C    SPEED2  COMPJLE  TIME  PARAMETERS 

33:  C 

34:  C    NROW:       MAXIMUM  NUMBER  OF  ROWS  (SCANS)  IN  THE  INPUT  DATA 

35:  C    NCOL:       MAXIMUM  NUMBER  OF  COLUMNS  (INSTRUMENTS)  TO  BE  PROCESSED 

36:  C    MAXPLT:    maximum  number  OF  CURVES  TO  BE  PLOTTED  ON  A  SINGLE  CURVE 

37:  C    MAXCNL:     maximum  number  OF  INSTRUMENTS  RECORDED  BY  THE  DATA  SYSTEM 

38:  c 

39:  NROW=100 

40:  NC0L=25 

41 :  MAXPLT=6 

42:  MAXCNL=150 

43:  C 

44:  c     ♦************♦*******+******************♦♦*************♦♦♦**♦♦**** 

45:  c 

46:  0JTDIM=1  8*MAXCN'_  +  ie0 

47:  NPTS=MAXPLT*NRDW+2 

48:  PLTDIM=2*MAXP_T 

4.9:  WRITE  (6,130)  (VERSN(  I  )  ,  1  =  1  ,  10) 

50:  ISEG=1 
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SUBPROGRA*^:   SPEED2        ALTERNATE  PROGRAM  DRIVER    NON-UNIVAC  1108 

5i:  ICRD=11 

52:  c 

53:  C    SPEED2  DATA  CARD  Ai:    NSETS 

54:  C    NSETS:   NUMBER  CF  SETS  OF  DATA  TO  BE  PROCESSED 

55:  C 

56:  READ  { 5, 140.ERR=110.END=120)  NSETS 

57:  C    ZERO  ARRAYS  TO  PREPARE  FOR  NEXT  DATA  SET 

58:  10     DO  40  I=1,NC0L 

59:  KH( I)=0 

6O:  ITYPE(1)=0 

ei:  c(i)=o. 

62:  ADD(I)=0. 

63:  MAXR(I)=0 

64:  DO  20  J=1,NRCW 

65:  20     REED(J,I)=0. 

66:  DC  30  K=l,6 

67:  30     NAME( ItK)=IBL 

63:  40     CONTINUE 

69:  DO  50  1=1,320 

70:  ISKIP(I)=0 

7i:  50     CONTINUE 

72:  DO  60  I=1.MAXCNL 

73:  MCNL(I)=0 

74:  60     CONTINUE 

75:  ISEG=1 

76:  ICRD=12 

77:  C 

78:  C    SPEED2  DATA  CARD  A2:     IPl , IP2, IP3 , I P4 

79:  C    IPi:      IF  IPl  IS  NON-ZERO,  CALL  PLOTl 

8O:  C    IP2:      IF  IP2  IS  NON-ZERO.  CALL  PL0T2 

8I:  C    1P3:      IF  IP3  IS  NON-ZERO,  CALL  PL0T3 

82:  C    IP4:      IF  IP4  IS  NON-ZERC,  CALL  PL0T4 

83:  C 

84:  READ  (5, 140.ERR=110,END=120)  I  PI , I P2, I P3 , IP4 

85:  IF  (IPl.EQ.O)  GO  TO  70 

86:  CALL  PLOTl  ( NROW ,NCOL , REED, KH, I  OUT . OUTDI M, MAXR , MCNL , MAXCNL , I  SKIP) 

87:  GO  TO  100 

8S:  70     IF  (IP2.EQ.0)  GO  TO  80 

89:  CALL  PL0T2  ( NROW ,NCOL , REED,KH, ITYPE,C , ADD,NAME , X, Y , MAXPLT , I  OUT, OUT 

90:  2DIM,MAXR,IPC, JM.PLTDIM,  IPN , MCNL , MAXCNu , I  SKI P ) 

91:  GC  TO  100 

92:  80      IF  (IP3.EQ.0)  GO  TO  90 

93:  CALL  PL0T3  ( NRDW ,NCCL, REED, KH, ITYPE, NAME ,X, Y , MAXPLT, NSETS, NPTS, MAX 

94:  2R,  IPCPLTDIM,  IPN,  ISKIP) 

95:  GC  TO  100 

96:  90      IF  (IP4.EQ.0)  GO  TO  100 

97:  CALL  PL0T4  ( NROW.NCOL, REED, KH, ITYPE, NAME ,MAXR , MCNL , MAXCNL , ISKI P ) 

98:  100    CONTINUE 
99:  NSETS=NSETS-1 

100:  WRITE  <6,150)  ( VERSN( I) .1=1, 10) 
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subprogram:   SPSEOZ        alternate  program  driver    NON-JNIVAC  1108 


IF  (NSETS.GT.O)  GO  TO  10 

STOP 

CALL  RWERR 

CALL  RWEOF 


FORMAT  (46H1   SPEED2  DATA  REDUCTION  ROUTINES     VERSION:  tlOAl) 

FORMAT  (1615) 

FORMAT  (22HI   SPEED2      VERSION:  ,10A1.19H      END  OF  DATA  SET) 

END 


loi: 

102: 

103: 

no 

104: 

120 

105: 

c 

106: 

c 

107: 

130 

108: 

140 

1C9: 

150 

no: 

C 

111 : 
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subprogram:   ploti       input  data  dump  and  error  checking 


SUBROUTINE  PLOTI  ( NROW . NCOL , REED , KH, lOUT . OUTDI M , MAXR . MCNL. MAXCNL . 
2  I  SK I P » 

COMMON  /ERRORS/  ICRD.ISEG 
INTEGER  OUTDIM 

DIMENSION  RSED<NROW,NCDL) ,KH(NCDL)  ,  IOUT( OUTDIM) .TITLE (120) « 
2  MAXR(NCCL). I NDAS( 22 ) , I CHRS( 320 » . MCNL( MAXCNL ) , I  SKIP (320 ) 
ISEG=2 
ICRD=11 

PL0~1  DATA  CARD  Ai:     INTYPE , I NPRT. I NPNCH , INERR . I NSKI P 
INTYPE:  UNCONVERTED  INPUT  DATA  FILE  TYPE 
INPRT:   DIRECTS  PRINTING  OF  UNCONVERTED  INPUT  DATA 
INPNCH:  DIRECTS  PUNCHING  OF  UNCONVERTED  INPUT  DATA 
INERR:   NUMBER  OF  INPUT  ERROR  MESSAGES  TO  BE  PRINTED 
INSKIP:  DIRECTS  SKIPPING  OF  INPUT  RECORDS 

READ  (5, 30.ERR=10.END=20 )  INTYPE , INPRT. I NONCH, 1 NERR , INSKI P 
ICR0=21 

PLOTI  DATA  CARDS  B1&B2:    TITLE 

title:   SPECIFIES  TITLE  OF  EXPERIMENT  PRINTED  AT  TOP  OF  EACH  PAGE 

READ  (5,40.ERR=10.END=20)  (T  ITLE ( I  )  .  1  =  1 .  120) 

WRITE  (6.50) 

WRITE  (6,60)  INTYPE. INPRT. INPNCH. INERR. INSKIP 

NR=NROW*NCCL 

NC  =  1  » 

KH(l)=-l 

ITIME=1 

CALL  DEF  INE  (INTYPE.  ICHRS. INDAS. IRE AD, I  TIM, lEOR. I  EOF . MED  I A . T I TLE . I 
2 NSKI P. ISKIP.NCNL.NTFORM) 

CALL  DATA  IN  (NR , NC, REED . KH, INTYPE, INPRT , INPNCH , MAXR. IT I  ME , I NERR . I N 
2  SKI  P. I  OUT, OUTDIM, ICHRS, INDAS, I  READ, ITIM, lEOR . I  EOF. MED  I A . T I TLE . MCNL 
3. MAXCNL. ISKIP.NCNL.NTFORM) 

RETURN 

CALL  RWERR 

CALL  RWEOF 


FORMAT  (1615) 
FORMAT  (80A1/40A1) 

FORMAT  <27H0   PLOTI  CONTROL  PARAMETERS./) 

FORMAT  { 8H  I NT YPE : . I  5 . 2X . 7H  I NPRT : . I 5 . 2X .7HI NPNCH : , I 5 ,2 X , 7H  INERR: 
2.I5.2X.7HINSKIP: .15) 

END 


i: 

2: 

3: 

C 

4: 

C 

5: 

c 

6: 

7: 

8: 

9: 

lo: 

ix: 

12: 

c 

13: 

c 

14: 

c 

15: 

c 

16: 

c 

17: 

c 

is: 

c 

19: 

c 

20: 

2i: 

22: 

c 

23: 

c 

24: 

c 

2S: 

c 

26: 

27: 

28: 

29: 

30 : 

3i: 

32: 

33: 

34: 

35: 

36: 

37: 

38: 

39: 

10 

4o: 

20 

41 : 

c 

42: 

c 

43: 

33 

44: 

40 

45: 

50 

46: 

60 

47: 

48: 

C 

49: 
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subprogram:   plot2       data  input  and  reduction 

i:  subroutine  plct2  ( nrowi ncol. reed. kh, itvpet c . add . name. x. yt maxplt t 

2:  2  IOUT.OUTDIM.MAXR.IPC. JM.PLTDIM, IPN.MCNL.MAXCNL.  ISKIP) 

3:  c 

4:  C  *******************************************************  ♦♦♦♦**Kt###i|i 

s:  c 

6:  COMMON  /EPRORS/  ICRD.ISEG 

7:  INTEGER  OUTDI M, PUTDI M, CHAR 

8:  DIMENSION  REED( NRCW . NCDL) .KH(NCOL) ,ITYPE(NCDL) . C( NCCL ) . ADD* NCOU ) • 

9:  2  NAME(NC0L.6) .XCNROW.MAXPLT) .Y(NROW.MAXPLT) , MAXR(NROW), 

lO:  3  lOUT(OUTDIM) ,TITLE(120).IN(80).CHAR(10),IC(6). IPC(PLT3IM) . 

H :  4  JM(PUTDIM) . IHEAD(80) .ISYM(6). ICHRS(320) ,INDAS<22) . I PN( PLTD I M, 6 ) . 

12:  5  IBUFF(40), JBUFF(40 ).MCNL(MAXCNL) . ISKIP(320) 

13:  DATA  <CHAR( J) , J=l,10)  / IHO . IHl , 1 H2 , 1H3, 1 H4, 1 H5, 1 H6, 1H7, 1H8. 1H9/ 

14:  DATA  (  ISYM( J)  , J  =  l,6)  / 1 H* . 1 HX , IHO .  1H+ , 1 H-, 1 H. / 

15:  DATA  NSEMI,NCCM  /1H;,1H,/ 

16:  ISEG=3 

17:  ICRD-11 

18:  c 

19:  C    PL0T2  DATA  CARD  Al :     INTYPE , INPRT , I NPNCH , INSTOP, INERR , INSKI P 

2o:  c   intype:  unconverted  input  data  file  type 

21 :  c   inprt:   directs  printing  of  unconverted  inpu'  data 

22:  c   inpnch:  directs  punching  of  unconverted  input  data 

23:  c   instcp:  if  instop  is  non-zero,  stop  processing 

24:  c   inerr:   number  of  input  error  messages  to  be  printed 

25:  c   inskip:  directs  skipping  of  input  records 

2e:  c 

27:  READ  (5.270.ERR=220.END=230)  INT YPE , IN=RT. I NPNCH, INSTCP . I NERR . I NSK 

28:  2IP 

29:  ICRD=12 

30:  c 

31 :  C    PL0T2  DATA  CARD  A2:    NTEST, NPRT. NPNCH, NPLOT. NCORR 

32:  C    NTEST:   TEST  NUMBER 

33:  C    NPRT:    DIRECTS  PRINTING  OF  CONVERTED  DATA 

34:  c   npnch:   directs  punching  of  converted  data 

35:  c   nplot:   if  npuot  is  non-zero,  printer  plots  are  to  be  generated 

36:  c   ncorr:   if  ncorr  is  non-zerc.  read  corrections  to  data 

37:  c 

38:  READ  ( 5,270. ERR=220.END=230)  NTEST , NORT . NPNCH, NPLOT , NCORR 

39:  ICRD=21 

40 :  c 

4i:  C    PL0T2  DATA  CARDS  3ie.B2:    TITLE 

42:  C    title:   specifies  TIT_E  OF  EXPERIMENT  PRINTED  AT  TOP  OF  EACH  PAGE 

43:  c 

44:  READ  (5,280,ERR=220,END=230)  ( Tl TLE ( I ) . 1 =1 . 1 20 ) 

45:  WRITE  (6.290) 

46:  WRITE  (6,390)  I  NT YPE , INPRT , I NPNCH ,  I NSTO P , I MERR , I NSK IP 

47:  WRITE  (6,400)  NTEST . NPRT . NPNCH . NPLOT. NCORR 

48:  K=l 

49:  1TIME=0 

50:  WRITE  (6.300) 


A- 10 


subprogram:   plots       data  input  and  reduction 

51 :  10      ICRD=23 

52:  c 

53:  C    PL0T2  DATA  CARDS  B3&B4:     KH, ITYPE, NAME 1 1  END 

54:  c   kh:     instrument  number 

55:  c   itype:   instrument  type 

56:  c   name:   descripticn  of  instrument 

57:  c   iend:   directs  end  of  instrument  cards 

58:  C 

59:  READ  (5,310tERR  =  220t£ND  =  230)  KH( K )  ,  ITYPE ( K) »  (NAME( K» J ) , J  =  l , 6 ) , ( I N( 

60:  21) tl=l t60).IEND 

6i:  IF  (IEND. EQ. 999)  GO  TO  30 

.62:  IF  (ITYPE(K) .EQ.l .AND. ITIME.NE.O)  60  TO  20 

*3:  IF  ( ITYPE(K).EQ.l)  ITIME=K 

64:  WRITE  (6.320)  KH(K) , ITYPE (K ) , ( NAME(K. J ) , J=l ,6) , ( IN( I ) , I =1 ,60 ) ,K 

65:  IF  (M0D(K,5) .EQ.O)  WRITE  (6,250) 

66:  IF  (M0D(K-35,40) .EQ.O)  WRITE  (6.410)  (Tl TLH ( 1) , I =1 , 120 ) 

67:  IF  (MOD(K-35,40) .EQ.O)  WRITE  (6,300) 

68:  K=K+l 

69:  IF  (K.LE.NCOL)  GO  TO  10 

70:  C    TOO  MANY  INSTRUMENTS.  KILL  ^HE  RUN 
7i:  WRITE  (6,370)  K 

72:  CALL  EREXIT 

73:  STOP 

74:  20      WRITE  (6,260)  KH(K) 
75:  CALL  EREXIT 

76:  STOP 

77:  30      WRITE  (6,330) 
78:  MAXC=K-1 

79:  K=l 

80:  40      1CRD=25 

81 :  c 

32:  C    PL0T2  DATA  CARDS  B5&B6:     C, ADD, IEND 

83:  C    C:        CONVERSION  CONSTANT 

84:  c   add:   addition  constant 

85:  c   iend:   directs  end  of  conversion  cards 

86:  C 

87:  read  (5,340,ERR=220,END=230)  C (K ) . ADD( K ) , IEND 

88:  IF  ( IEND. EQ. 999)  GO  TO  50 

89:  WRITE  (6,350)  K , C(K ) ,K, ADD( K ) 

90:  K=K+1 

91 :  GO  TO  40 

92:  C    READ  INPUT  FILE. 

93:  50      CALL  DEFINE  ( INTYPE , ICHRS, INDAS, IREAD . I T IM. 1 EOR . I  EOF , MED  I A ,TI TLE , I 
94:  2NSKIP, ISK1P,NCNL,NTF0RM) 

95:  CALL  DATAIN  (  NROW.I>JCOL  ,  REED,  KH,  I  NT  YPE  ,  1  NPRT  ,  INPNCH  ,  MAXR,  IT  I  ME,  I  NER 

96:  2R, INSKIP,IOUT.CUTDIM, ICHRS, I NDAS , I  READ, I T IM, lEOR, lEOF ,MEDI A. T ITLE, 

97:  3MCNL,MAXCNL, ISKI P,NCNL , NTFORM) 

98:  IF  ( INSTOP.NE.O)  RETURN 

99:  C    CONVERT  INPUT  FILE. 
lOO:  CALL  CCNV  (NROW , NCOL, REED ,KH, ITYPE, C, ADD ,NCORR , MAXR , MAXC ) 
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subprogram: 


PLOT  2 


DATA  INPUT  AND  REDUCTION 


101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
1  14 
1  15 
116 
117 
118 
1  19 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
1  33 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 


C 

60 

C 

c 
c 
c 


70 


PRINT  OUT  CONVERTED  DATA  (IF  NPRT  .NE.  0) 

IF  (NPRT.NE.O)  CAUL  PRINT  ( NRCW , NCOL. REED, KH , I T YPE , NAME t I T 1  ME , MAXR 
2.MAXC,TITLE) 
PUNCH  OUT  REDUCED  DATA  (IF  NPNCH  IS  NON-ZERO) 

IF  (NPNCH. NE.O)  CALL  PUNCH  ( NROW, NCOL , RE  ED . KH, NAME . MAXR , MAXC , NTEST 
2, NPNCH) 
IF  (NPLOT.EQ.C)  RETURN 
GENERATE  PLOTS  (  IF  NPLOT  . NE .  0  ) 
ICRD=91 

PL0T2  DATA  CARD  II :     IN 

in:       card  SPECIFIES  INSTRUMENTS  TO  BE  PLOTTED 


80 
C 


90 

100 
110 
120 

130 


READ  (5. 

IP  =  0 

K=0 

DO  120  I 

DO  70  J= 

IF  (IN(I 

CONTINUE 

IF  (K.EQ 

IP=IP+1 

CALCULATES 
L  =  0 

DO  80  J= 
M=IABS(K 
L=L+IC( J 

LOCATE  COL 
DO  90  J= 
IF  (KH(J 
CONTINUE 
IF  <IPC( 
WRITE  (6 
IP=IP-1 
K=0 

GO  TO  12 
K  =  K  +  1 
IC(K)=J- 
CCNTINUE 
IF  (IN(8 
IF  (IP.E 
DO  130  1 
IF  (IN(I 
CONTINUE 
L=IPC( 1) 
IN(1 )=NA 
DC  160  I 
K=IPC( I) 
MAXROW=M 
DO     140     J 


380.ERR=220.END=230)  IN 

=  1.80 

1,10 

) .EQ,CHAR( J) )  GO  TO  IIC 

.0)  GC  TO  120 

INSTRUMENT  NUMBER. 

l.K 
-J) 

)*10**M 

UMN  INSTRUMENT  IS  STORED  IN. 

l.MAXC 

).EQ.L)  IPC(1P)=J 

IP). NE.O)  GC  TO  100 
,240)  L,IN 


0) .EQ.NSEMI )  GO  TC  60 

Q.O)  RETURN 

=  1  ,80 

).EQ.NCOM)  GO  TO  170 


ME(L,1 ) 

=2,  IP 

AXR(K) 

=1 • MAXROW 
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subprogram:   PL0T2         DATA  INPUT  AND  REDUCTION 

15i:  X( JtI-l)=REED(J.L) 

152:  140    Y(J,I-1)=REED(J.K) 

153:  JM( I-1)=MAXR0W 

154:  DO  150  M=l,6 

155:  150    IPN(I-l,M)=NAME{K.M» 

156:  160    CONTINUE 

157:  1M=IP-1 

158:  GO  TO  210 

159:  170    DC  200  I=l.IPi2 

160:  L=1PC<I) 

16i:  K=IPC(I+1) 

162:  MAXROW=MAXR(K) 

163:  ICRV=l/2+l 

164:  DO  180  J=lfMAXROW 

165:  X( J.ICRV)=REED( J,L) 

166:  180    Y{ J,ICRV)=REED( J.K) 

167:  JM( ICRV)=MAXROW 

168:  DO  190  M=l,6 

169:  190     IPN( ICRV.M)=NAME(K,M) 

170:  200    CONTINUE 

17i:  IM=IP/2 

172:  210    ICRD=92 

173:  C 

174:  C  PL0T2    DATA    CARD    12:  XLtXH.YLtYH 

175:  C  XL:  X-AXIS    LOWER    LIMIT 

176:  c       xh:  X-AXIS  upper  limit 

177:  C    YL:       Y-AXIS  LCWER  LIMIT 

178:  C    YH:       Y-AXIS  upper  LIMIT 

179:  C 

180:  READ    (5t3eO.ERR=220f END=230>     XLtXH»YLtYH 

lai:  ICRD=93 

182:  C 

183:  C    PL0T2  DATA  CARD  13:     IHEAD 

184:  c   ihead:   graph  heading 

185:  c 

186:  READ  (5,380tERR=220.END=230)  IHEAD 

187:  ICRD=94 

188:  C 

189:  C    PL0T2  DATA  CARD  14:     IBUFF.JBUFF 

190:  C    IBUFF,  JBUFF:   Y-AXIS,  X-AXIS  TITLES 

191 :  c 

192:  READ  (5.380,ERR=220.END=230)  IBUFF»JBUFF 

193:  CALL  DRAW  { JM, I M.X. Y ,XL . XH, YL, YH, I  BUFF, JBUFF , I HEAD.TITLE . IPN , NROW, 

194:  2PLTDIM) 

195:  GO  TO  60 

196:  220    CALL  RWERR 

197:  230    CALL  RWEOF 

198:  C 

199:  C 

200:  240    FORMAT  (24H0N0  FIND  FOR  INSTRUMENT  ,I6,23H  ERROR  ON  THE  FOLLOWING, 
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SUBPROGRAM 

:   PI 

201: 

202: 

250 

203: 

260 

204: 

205: 

270 

206: 

280 

207: 

290 

208: 

300 

209: 

210: 

211: 

310 

212: 

320 

213: 

330 

214: 

340 

215: 

350 

216: 

360 

217: 

370 

21a: 

219: 

38  0 

220: 

390 

221: 

222: 

40  0 

223: 

224: 

410 

225: 

C 

226: 

Pt-0T2  DATA    INPJT    AND    REDUCTION 


2    lOH    PLOT    CARD./tlX.aOAl) 

FORMAT     { IH    ) 

FORMAT  (AlHOCNLY  ONE  INSTRUMENT  OF  TYPE  1  IS  ALL3WED./, 
2  35H  SECOND  FOUND  AT  INSTRUMENT  NUMBER  ,13) 

FORMAT  (1615) 

FORMAT  (80A1/40A1) 

FORMAT  (27H0   PL0T2  CONTROL  PARAMETERS/) 

FORMAT  {22H0  TABLE  OF  I NSTRUMENTS/.6X, 

2  41HKH  ITYPE  I.D.        INSTRUMENT  DESCRI PTI 0 N, T87, 6HC0LUMN, / , 1 H  , 

3  92(1H-) ,/) 

FORMAT  (  16, I2,66A1,3X, 13) 

FORMAT  < 1X,16,I3,3X,6AI,2X,60A1,T87,I6} 

FORMAT  (//,22H0TABLE  OF  MULTIPLIERS  , 1  OX , 1 5HTABLE  OF  ADDERS) 

FORMAT  ( IX,F15.6,F15.6, 149) 

FORMAT  (2H  C, I  2 , 1H= ,F 15 .6 , 1 2X, 3HADD , 12 , 1 H=, F 1 5. 6) 

FORMAT  (4F10.0) 

FORMAT  (42H0C0LUMN  STORAGE  LIMITS  EXCEEDED  AT  CCLUMN  .14,/, 
2  31H  CHECK  PARAMETERS  NCCL  AND  NROW) 

FORMAT  <80A1) 

FORMAT  (8H  INTYPE : , 15 , 2X , 7H  INPRT : , I5,2X ,7H I NPNCH : , 15 ,2X ,7HI NSTOP: 
2.15'.  2X,7H  INERR:  ,I5,2X,7HINSKIP:  ,  15) 

FORMAT  (8H   NTEST : , I  5, 2X , 7H   NPRT : , 15, 2X , 7H  NPNCH :, 15 ,2X,7H  NPLOT: 
2,I5,2X,7H  NC0RR:.I5) 

FORMAT  (1H1,120A1) 

END 
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subprogram:        plots  CALCOMP    plotting       for    data    generated    by    PL0T2 

i:  SUBROUTINE    PLCT3    { NROW, NCCL , REED . KH, ITYPE, NAME t X«Y. MAXPLTt NSETSt 

2:  2    NPTS,MAXR,IPC,PLTD1  vi.IPN.ISKIP) 

3:  C 

4:  c    ********♦♦**♦♦♦****♦**♦**♦*♦***♦*♦*♦***♦**♦♦*♦*♦♦♦*****♦*♦♦****♦♦* 

s:  c 

6:  COMMON  /ERRORS/  ICRD.ISEG 

7:  INTEGER  CHAR,PLTDIM.XPOW,XDIG,YPOW,YDIG,FTIT 

8:  REAL  lYtlX 

9:  DIMENSION  REED ( NROW, NCOL) .KH(NCOL) . ITYPE ( NCDL) . NAME (NCOL .6 ) . 

10:  2  TITLE(120),1N(30),CHAR(10) , IC< 6 ) , I PC( PLTDI M ) , AREA ( 102* ) , I B JFF( *0 ) 

11:  3, JBUFF(40) ,X(NPTS). Y(NPTS) , I  HEAD ( 7  8) . M AXR( NCOL) . IPN< PLTDI M, 6 ) , 

12:  4  FTIT(10),ISKIP(320) 

13:  DATA  (CHAR( J) . J=l,10)  / IHO , IHl , 1 H2 , 1H3, 1 H4 , 1 H5 , 1H6 , 1H7, 1H8 , 1 H9/ 

14:  DATA  {FTIT(  J)  ,  J=l,10)  / IHF. IHI . IHG  ,  IHU, 1 HR , 1  HE , 1 H  ,1H  .IH  .1H:/ 

15:  DATA  NCOM,NSEMI,NS,NP,NL  /I H, , IH ;  , 1 HS, 1  HP, 1 HL/ 

16:  C    INITIALIZE  THE  CALCOMP  TAPE  FOfi  THE  PLOTTING 
17:  CALL  PLOTS  ( AREA , 1024, 7 ) 

18:  CALL  PLOT  (0.,-ll.,-3) 

19:  CALL  PLOT  (0.,1.5,-3) 

20:  WRITE  (6,710) 

21:  C 

22:  ISEG=4 

23:  ICRD=11 

24:  C 

25:  C    PL0T3  DATA  CARD  Al :    NPRT , NSMTH , NOUT ,NAX1 S,NPNT, NLSG 

26:  c   nprt:   if  nprt  is  non-zero,  print  data 

27:  c   nsmth:   smoothing  factor 

28:  c   ncut:   determines  fate  of  cut-of-bounds  points 

29:  C    NAXIS:   two  or  four  sided  AXES 

30:  c   npnt:   spacing  of  points  on  curves 

31  :  C    NLEG:    read  cards  FDR  LEGENDS  ON  CURVES 

32:  c 

33:  READ  (5,720,ERR=630.END=640)  NPRT , NSMTH , NDUT, NAXI S , NPNT , NLEG 

34:  ICRD=12 

35:  C 

36:  C    PL0T3  DATA  CARD  A2:    XSIZE,  YSIZE,  SCALE 

37:  C    XSIZE:   length  CF  the  X  AXIS  OF  THE  PLOT  IN  INCHES 

38:  C    YSIZE:   LENGTH  CF  THE  Y  AXIS  OF  THE  PLOT  IN  INCHES 

39:  c   scale:  scale  factor  for  plotting 

4o:  c 

4i:  READ  (5,880,ERR=630.END=640)  XSI ZE,YSI ZE , SCALE 

42:  IF  (XSIZE. LT, 1.0)  XSIZE=10.0 

43:  IF  (YSIZE. LT. 1.0)  YSIZE=8.0 

44:  IF  (SCALE. EQ.G.)  SCALE=1.0 

45:  IF  (NSMTH. LT.O)  NSMTH=0 

46:  CALL  FACTOR  (SCALE) 

47:  WRITE  (6,730)  NPRT , NSMTH , NOUT, N AX  I S ,NPNT , NLEG 

48:  WRITE  (6.740)  XS IZE , YSI ZE, SCALE 

49:  ICRD=21 

so:  c 
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subprogram:    plots         CALCOMP  plotting   for  data  generated  by  PL0T2 


PL0T3  DATA  CARDS  Bl  &  B2:      TITLE 

title:   SPECIFIES  TITLE  CF  EXPERIMENT  PRINTED  AT  TOP  OF  EACH  PAGE 

READ  (5.820tERR=630.END=640)  (Tl TLE < I ) » I =1 i 1 20) 

K  =  l 

ITIME=0 

WRITE  (6.830) 

ICRD=23 

PL0T3  DATA  CARDS  B3&B4:     KH. ITYPE. NAME. I  END 

KH:       INSTRUMENT  NUMBER 

ITYPE:   INSTRUMENT  TYPE 

name:     DESCRIPTICN  DF  INSTRUMENT 

iend:   directs  end  of  instrument  cards 

read  (5.84  0.ERR=630.END=640)  KH (K ) , ITYPE (K) , ( NAME( K« J } . J=l .6} . (IN( 

21  )  .1  =  1  .60) « IEND 

IF  ( IEND. EQ. 999)  GO  TO  30 

IF  (ITYPE(K) .EQ.l.AND.ITIME.NE.O)  GO  TO  20 

IF  (ITYPE<K) .EQ.l)  ITIME=K 

WRITE  (6.850)  KH(K) . ITYPE(K). (NAME(K,J) . J=l ,6). ( IN{ I),I=1.60) .K 

IF  (M0D(K.5)  .EQ.O)  WRI-'E  (6,800) 

IF  (M0D(K-35.40) .EQ.O)  WRITE  (6,660)  (T I T^E (  I  ) . I  =  1 , 120) 

IF  (MOD(K-35.40) .EQ.O)  WRITE  (6.830) 

K  =  K+1 

IF  (K.LE.NCOL)  GO  TO  10 
TOO  MANY  INSTRUMENTS.  KILL  THE  RUN 

WRITE  (6,860)  K 

CALL  EREXIT 

STOP 

WRITE  (6,810)  KH(K) 

CALL  EREXIT 

STOP 

MAXC=K-1 
READ  IN  DATA 

CALL  REDCIN  ( NROW, NCOL . REED. KH, 0 . 0 . MAXR , ITI ME .0 . 0 , I  SKIP) 
PRINT  OUT  DATA 

IF  (NPRT.NE.O)  CALL  PRINT  ( NROW. NCOL , REED, <H , ITYPE. NAME . IT  I  ME, MAXR 
2.MAXC,TITLE) 

WRITE  (6.750)  (T  ITLE( I ) . I  =  1 . 120 ) 

IPPLOT=0 

IP  =  0 

IPTYP=0 

NGRAPH=0 

ICRD=41 

PL0T3  DATA  CARD  Dl :     IN 

in:       SPECIFIES  INSTRUMENTS  TC  BE  PLOTTED 

READ  (5.870,ERR  =  630,END  =  640)  ( IN ( I  )  ,  1  =  1 , 80) 


5i: 

C 

52: 

c 

53: 

c 

54: 

55: 

56: 

57: 

58: 

10 

59: 

c 

60: 

c 

6i: 

c 

62: 

c 

63: 

c 

64: 

c 

65: 

c 

66: 

67: 

68: 

69: 

7o: 

7i: 

72: 

73: 

74: 

75: 

76: 

77: 

c 

78: 

79: 

80: 

81 : 

20 

82: 

83: 

84: 

30 

85: 

c 

86: 

87: 

c 

88: 

89: 

90 : 

91 : 

92: 

93: 

94: 

95: 

40 

96: 

C 

97: 

c 

98: 

c 

99: 

c 

lOO: 

A-16 


subprogram:    PL0T3         CALCOMP  PLOTTING   FOR  DATA  GENERATED  BY  PL0T2 

loi:  K=o 

102:  DO  100  I=l«80 

103:  IF  (IN(I).EQ.NCOM)  IPPLCT=1 

104:  IF  (IN( I ).EQ.NS.AND. IN< I+l ).EQ.NP)  IPTYP=1 

105:  IF  (IN( I).EQ.NL.AND.1N( I+l ).EQ;nP)  IPTYP=-1 

106:  DC  50  J=ltl0 

107:  IF  (IN( I).EQ.CHAR( J) )  GO  TO  90 

108:  50      CONTINUE 

109:  IF  (K.EQ.O)  60  TO  100 

110:  IP=IP+1 

111:  C    CALCULATES  INSTRUMENT  NUMBER. 

112:  L=0 

113:  DO  60  J=ltK 

114:  M=IABS<K-J) 

lis:  60     L=L+IC( J}*10**M 

lie:  C    LOCATE  COLUMN  INSTRUMENT  IS  STORED  IN. 

iVT.  DO  70  J=1.MAXC 

lie:  IF  (KH(J).EQ.L>  IPC(IP)=J 

119:  70      CONTINUE 

120:  IF  (IPC( IP) .NE.O)  GO  TO  80 

121:  WRITE  (6.670)  L.IN 

122:  80      K=0 

123:  GO  TO  100 

124:  90      K=K-H 

125:  IC(K)=J-1 

126:  100    CONTINUE 

127:  IF  (IN(80) .EQ.NSEMI )  GO  TO  40 

128:  IF  (IP.EQ.O)  GO  TO  620 

129:  C    DETERMINE  AXIS  LIMITS  SC  THAT  READABLE  VALUES  ARE  PRINTED  ON  AXES 

130:  IOUT=0 

131 :  ICRD=42 

132:  C 

133:  C  PL0T3    DATA    CARD    D2:  XL.XH.YL.YH 

134:  C  XL:  X-AXIS    LOWER    LIMIT 

135:  c   xh:     X-AXIS  upper  limit 

136:  c   yl:     Y-axis  lower  limit 

137:  c   yh:     Y-axis  upper  limit 

138:  c 

139:  READ  (5,880.ERR=630.END=640)  XL.XH.YL.YH 

140:  IF  (IPTYP.NE.O)  GO  TO  140 

141 :  DELY=(YH-YL)/YSIZE 

142:  N=0 

143:  K=0 

144:  110     IF  (DELY.GT..8)  GO  TO  120 

145:  DELY=DELY*10. 

146:  K=K+1 

147:  GO  TO  110 

148:  120    N=N-K-1 

149:  IY=DELY*10. 

150:  130     IY=IY/10. 
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151  : 

152: 

153: 

154: 

155: 

156: 

157: 

158: 

159: 

160: 

161  : 

162: 

140 

163: 

164: 

165: 

150 

166: 

167: 

168: 

169: 

160 

170  : 

171 : 

172: 

173: 

170 

174: 

175: 

180 

176: 

177: 

17a: 

179: 

180: 

181 : 

182: 

183: 

184: 

185: 

186: 

187: 

190 

188: 

189: 

190: 

200 

191  : 

C 

192: 

c 

193: 

c 

194: 

c 

195: 

c 

196: 

197: 

198: 

199: 

c 

200  : 

GO  TO  130 

DHLY=2. 
D=LY=4. 
D£LY=5. 
DELY=8. 


N  =  N  +  1 

IF  (lY.GT.S.) 

DELY=1 . 

IF  (lY.GT.l.) 

IF  (IY.GT.2.) 

IF  (IY.GT.4.) 

IF  (lY.GT.S.) 

DELY=OELY*10.**N 

YH=YL+DELY*YSIZE 

YPOW=N 

GC  TO  150 

IF  (YL.EQ.O.O.CR.YH.EQ.0.0)  GO  TO  630 

DELY=FLOAT( INT( ALDGl 0 ( YH/YL) +0 .99) )/YS:ZE 

YH=YL*10.**{ DELY*YSIZE) 

IF  (IPTYP.EQ.-l )  GO  TO  190 

DELX=(XH-XL)/XSIZE 

N=0 

K=0 

IF  (DELX.GT..8)  GO  TO  170 

DELX=DELX*10. 

K=K  +  1 

GO  TO  160 

N=N-K-1 

IX=DELX*10. 

IX=IX/1 0. 

N  =  N+1 

IF  (IX.GT.8. 

DELX=1 . 

IF  ( IX. GT.  1  .  ) 

IF  {IX.GT.2.) 

IF  (IX.GT.4.) 

IF  (1X.GT.5.) 

DELX=DELX*10.**N 

XH=XL+DELX*XSIZE 

XPOW=N 

GO  TO  200 

IF  (XL.EQ. O.O.CR.XH.EQ. 0.0)  GO  TO  630 

DELX= FLOAT ( INT (ALOG10(XH/XL) +0.99) )/XSIZE 

XH=XL*1 0.**(DELX*XSIZE) 

ICRD=43 

PLCT3  DATA  CARD  D3:     IFIG.IHEAD 

IFIG:     FIGURE  NJMBER  (IF  ANY) 

IHEAD:   title  of  PLOT  (2   39  CHARACTER  TITLE  LINES  MAXIMUM! 

READ  (5, 890.ERR=630, END=640)  IFIG.IHEAD 
YTPrS=-0.95 

IF  (IPIG.EQ.O)  GO  TO  210 
PUT  TITLE  WITH  FIGURE  NUMBER  ON  GRAPH 
XTPCS=XSIZE/2.-3.57 


)  GC  TO  180 


DELX=2. 
DELX=4. 

DELX=5. 
DELX=8. 


A-IS 


subprogram:   PLCT3         CALCCMP  plotting   for  data  generated  by  PL0T2 

201:  K=IFIG/10 

202:  FTIT(8)=1H 

203:  IF  (K.NE.O)  FTIT ( 8) =CHAR (K+1 ) 

204:  K=IFIG-K 

205:  FTITC9)=CHAR(K+1  ) 

206:  CALL  TEXT  ( XTPOS tYTPOSt . 14t FTIT . 0. t 10) 

207:  XTP0S=XSIZE/2.-l .89 

208:  CALL  TEXT  ( XTPDS t YTPOS. . 1 4. I HEADt 0  .  .39) 

2C9:  YTP0S=-1.15 

210:  CALL  TEXT  (XTPOS. YTPOS. . 14 , I HEAD( 40) » 0. . 39) 

211:  GO  TO  220 

212:  C    PUT  TITLE  WITHOUT  FIGURE  NUMBER  ON  GRAPH 

213:  210    XTP0S=XSIZE/2.-2.73 

214:  CALL  TEXT  ( XTPCS . YTPOS. . 1 4, IHEAD . 0 . . 39) 

215:  YTP0S=-1.1 

216:  CALL  TEXT  (XTPOS. YTPOS, . 14 , 1 HEAD( 40) . 0. . 39 ) 

217:  220     ICRD=44 

218:  C 

219:  C    PL0T3  DATA  CARD  D4 :     I  BUFF.  JBUFF 

220:  C    IBUFF:   VERTICAL  AXIS  TITLE 

221:  C    JBUFF:   HORIZONTAL  AXIS  TITLE 

222:  C 

223:  READ  ( 5. 900. ERR=630 . END=640)  ( IBUFF ( J ) . J=l . 40) , ( JBUFF( J ) . J=l . 40 ) 

224:  C    CREATE  THE  AXES  OF  THE  GRAPH  USING  THE  TITLES  SUPPLIED 

225:  C    DRAW  Y  AXIS 

226:  IF  (IPTYP.NE.O)  GO  TO  290 

227:  YTPOS=0. 

228:  CALL  PLOT  (0..0..3) 

229:  230    YTP0S=NIIN(YTP0S  +  1..YS1ZE) 

230:  CALL  PLOT  (0.. YTPOS. 2) 

23i:  IF  (AMODCYTPOS. 1 .).NE.O. )  GO  TO  240 

232:  CALL  PLOT  (. 125. YTPOS. 2) 

233:  CALL  PLOT  (0.. YTPOS. 3) 

234:  240    IF  (YTPOS. LT.YSIZE)  GO  TO  230 

235:  C    FIND  NUMBER  OF  CHARACTERS  IN  AXIS  LABEL  NUMBERS 

236:  YDIG=0 

237:  YP=10.*AMAX1 ( ABS ( YL ) . ABS( YH) ) 

238:  IF  (YP.LT.IO.)  GO  TO  260 

239:  250    YP=YP/10. 

240:  260    YDIG=YDIG+1 

24i:  IF  (YP.GE.IO.)  GO  TO  250 

242:  IF  (YPOW.GT.O)  YPOW=0 

243:  NDEC=IABS(YPOW) 

244:  IF  (NDEC.EQ.O)  NDEC=-1 

245:  IF  (NDEC.NE.-l)  YDIG=YDIG+1 

246:  XTP0S=FL0AT(-(IABS(YP0W)+YDIG+1) )*0.14 

247:  C  PUT    NUMBERS    ON 

248:  YTP0S=-1 .0 

249:  YKUM=YL 

250:  270  YTPCS=AMIN1(YTP0S+1 ..YSIZE) 
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251' 

252 

253 

280 

254 

255 

C 

256 

257 

258 

259 

260 

290 

261 

262 

263 

C 

264 

30  0 

265 

266 

267 

310 

268 

269 

270 

271 

272 

320 

273! 

C 

274 

275 

276' 

33  0 

277 

278 

C 

279 

280 

281 

282 

340 

283 

350 

284 

285 

286 

287- 

288 

289 

290 

291 

292 

360 

293 

294 

C 

295 

296 

297 

298 

370 

299 

300 

IF  (AMCD(YTPCS. 
CALL  NU'-IBER  (XT 
YNUM=YNUM+DELY 
IF  (YTPCS.LT.YS 

AXIS  TITLE 

YTP0S=YSIZE/2.- 

XTPCS=XTPCS-.20 

CALL  TEXT  (XTPD 

GO  TO  300 

CALL  LGAXIS  (0. 

YTP0S=YSIZE/2.- 

CALL  TEXT  (-0.5 

DRAW  X  AXIS 

IF  (IPTYP.EQ.-l 
XTPOS=0. 
CALL  PLOT  (0.,0 
XTP0S  =  A'-1IN1  (XTP 
CALL  PLOT  (XTPO 
IF  (AMOD(XTPCS, 
CALL  PLOT  (XTPO 
CALL  PLOT  (XTPC 
IF  (XTPOS.LT.XS 

PUT  NUMBERS  BELCW 
XTP0S=-1 . 
XNUM=XL 

XTPOS=AStINl  (XTP 
IF  (AMOD(XTPCS, 

FIND  NUMBER  OF  CH 
XDIG=0 
XP=1 0.*XNUM 
IF  (XP.LT.IO.) 
XP=XP/1 0. 
XDIG=XDIG+1 
IF  (XP.GE.IO.) 
IF  (XPOW.GT.O) 
NDEC=IABS(XPOW) 
IF  (NOEC.EQ.O) 
IF  (NDEC.EQ.-l) 
XTPOS=XTPOS-FLD 
CALL  NUMBER  (XT 
XTPCS=XTPOS+FLO 
XNUM=XNUM+DELX 
IF  (XTPOS.LT.XS 

ADD  AXIS  TITLE 
XTP0S=XSIZE/2.- 
CALL  TEXT  (XTPO 
GO  TO  380 
CALL  LGAXIS  (0. 
XTP0S=XSIZE/2.- 
CALL  TEXT  (XTPO 


1 . ) .NE.O . .AND.YTPOS.EQ.YSIZE )  GO  TO  280 
FOSf  YTPCS-C.07,  .  14i  YNUM,  0.  ,^^DEC) 

IZE)  GC  TO  270 

2.8 

S.YTPOS,  .14,  I  BUFF, 9  0., 40) 

,0.,1H  , 0,YSIZE,90. . YL.DELY) 

2  .8 

, YTPOS.. 14, I BUFF, 90. .40) 

)  GO  TC  370 

.  ,3) 

CS+1 . ,XSIZE) 
S,0. .2) 

1  .) .NE.O. )  GC  TC  320 
S,. 125,2) 
S,0. ,3) 

IZE)  GC  TC  310 
TIC  MARKS  CN  X  AXIS 


OS+1 . ,XSIZE) 

1  .). NE.O. .AND. XTPOS.EQ.XSIZE)  GC  TO  360 

ARACTERS  IN  AXIS  LABEL  NUMBER 


GO  TO  350 


GC  TO  340 
XPOW=0 

NDEC=-1 

XDIG=XDIG-1 
AT( ( IABS(XPCW)+XDIG+1) )*0.07 
POS,-. 19, . 14,XNUM, 0. ,NDEC) 
AT( ( IABS(XP0W)+X0IG+1) )*0.07 

IZE)  GO  TC  330 

2  .8 

S,-.53» . 14. J BUFF, 0. ,40) 

,0.,1H  ,-1 ,XSIZE, 0. ,XL,DELX) 

2.8 

S, -0.53,. 14, J BUFF, 0.. 40) 
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IF  (NAXIS.EQ.C)  GO  TO  A30 
PUT  AXES  ON  THE  OTHER  TWO  SIDES  OF  THE  GRAPH,  Y  AXIS  FIRST 

YTPOS=0. 

CALL  PLOT  (XSIZE,0..3) 

YTPCS=AMIN1(YTP0S+1 . ,YSIZE) 

CALL  PLOT  (XSIZE.YTP0S,2) 

IF  {AMOD(YTPOS, 1. ) .NE.O. )  GO  TO  400 

CALL    PLOT    (XSIZE-.125.YTP0S,2) 

CALL    PLOT     (XSIZE,YTP0S.3) 

IF  (YTPOS.LT.YSIZE)  GO  TO  390 
DRAW  X  AXIS 

XTPOS=0. 

CALL  PLOT  (O..YSIZE,3) 

XTP0S=AMIN1 (XTPDS+1 . .XSIZE) 

CALL  PLOT  (XTP0S,YSIZE,2) 

IF  (AMOO(XTPOS,  1  .).NE.O. )  GC  TO  420 

CALL  PLOT  (XTPOS.YSIZE-. 125.2) 

CALL  PLOT  (XTP0S,YSIZE.3) 

IF  (XTPOS.LT. XSIZE)  GO  TO  410 

NCRV=IP-1 

IF  (IPPLOT.EQ.l )  NCRV=IP/2 

DO  540  I=1.NCRV 

IF  (IPPLOT.EQ.l)  GO  TO  440 

IXX=IPC(1) 

IYY  =  IPC(  I  +  l ) 

GO  TO  450 

IXX=IPC{2*I-1) 

IYY=IPC(2*I) 

NPT  =  0 

MAXRCW=MAXR(IYY) 

DO  470  L=1.MAXR0W 

IF  (REED(L, IXX) . 6E . XL. AND . REED( L ,  I  XX) . _5 .XH. AND. REED(L. lYY) .6E.YL. 
2AND.REED(L. lYY) .LE.YH)  GC  TO  460 

I0UT=10UT+1 

IF  (NOUT.EQ.O)  GC  TC  470 

NPT=NPT+1 

X(NPT)=REED(L, IXX) 

Y(NPT)=REED(L» lYY) 

CONTINUE 

ISYM=I-1 

X(NPT+1 )=XL 

X(NPT+2)=DELX 

Y(NPT+1 )=YL 

Y(NPT+2) =DELY 

IF  (NPT.EQ.O)  GO  TO  520 

IF  (IPTYP.EQ.O)  GO  TO  480 

CALL  LGLINE  (  X,  Y  .NPT  ,  1  ,  NPNT,  I  SYVI ,  I  PTYP) 

GC  TO  520 
SMOOTH  DATA  IF  NSMTH  IS  NOT  EQUAL  TC  ZERO 

IF  (NSMTH. EQ.C)  GO  TO  51C 


30i: 

380 

302: 

C 

303: 

304: 

305: 

390 

306: 

307: 

308: 

309: 

310: 

400 

311 : 

c 

312: 

313: 

314: 

410 

315: 

316: 

317: 

318: 

319: 

420 

320: 

430 

321 : 

322: 

323: 

324: 

325: 

326: 

327: 

440 

328: 

329: 

450 

330: 

33i: 

332: 

333: 

334: 

33S: 

336: 

460 

337: 

338: 

339: 

470 

340: 

341 : 

342: 

343: 

344: 

345: 

346: 

347: 

348: 

349: 

C 

35C: 

480 
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subprogram:   PL0T3         CALCOM?  PLOTTING   FOR  DATA  GENERATED  BY  PL0T2 

351 :  DO     500    L=l .NPT 

352:  IPTHsNPT-L+l 

353:  IPTL=MAX0(NPT-L-NSMTH-1 , 1 ) 

354:  Y(IPTH)=Y(IPTH) /FLOAT (( IPTH-IPTL+1 ) ) 

355:  IF  (IPTH.EQ.l)  GO  TO  500 

356:  IPTHM1=IPTH-1 

357:  DO  490  LL=IPTLt I PTHMl 

358:  Y( IPTH)=Y(1PTH)+Y(LL)/FL0AT( ( IPTH-IPTL+1 )) 

359:  490    CONTINUE 

360:  500    CONTINUE 

36i:  510    CALL  LINE  ( X , Y. NPTt I . NPNT, I SYM) 

362:  520    DO  530  J=1.6 

363:  530     IPN( I , J)=NAME(IYY. J) 

364:  540    CONTINUE 

365:  IF  (NLEG.EQ.O)  GO  TO  550 

366:  C 

367:  C    PL0T3  DATA  CARD  D5 :     I S. I SYM, XTPOS . YTPOS, IHE AD 

368:  C    is:       PLOTTING  SYMBOL  FLAG 

369:  C    ISYM:    plotting  symbol  PREFIXED  TO  LEGEND  1=^  IS  IS  NON-ZERC 

370:  C    XTPOS:   X  position  of  LEGEND 

371 :  C    YTPCS:   Y  POSITION  OF  LEGEND 

372:  c   ihead:  legend 

373:  c 

374:  read  (5.650,END  =  630.ERR  =  640)  I S.  I S YM, XTPOS, YTPOS.  ( 1  HEAD C  I )  . I =1 . 60 ) 

375:  IFdS.EQ.O.AND. ISYM .EQ . 0. AND .XTPOS. EQ. 0 . 0 . AND. YTPOS. EQ .0. 0 .AND. I H 

376:  2EAD(1) .EQ.IH  )  GO  TO  550 

377:  IF  (IS.NE.O)  CALL  SYMBOL  ( XTPOS- . 1 05, YTPOS+. 035 , .07, ISYM, 0 .. -1 ) 

378:  CALL  TEXT  { XTPO S . YTPOS, . 07 , I  HEAD, 0 . , 60) 

379:  C    PUT  A  LEGEND  BLOCK  IN  BOTTOM  RIGHT  HAND  CORNER 

380 :  550    CALL  FACTOR  (1.0) 

381 :  XTPOS=XSIZE*SCALE+0 .5 

382:  YTPOS=0. l*FL0AT(NCRV/2+M0D(NCRV,2) )+0.03 

383:  DC  580  I=1,NCRV.2 

384:  YTPOS=YTPCS-0.10 

385:  CALL    SYMBOL     (XTPOS, YTPOS+. 035,  . 07  ,  I-l , 0 ., -1 ) 

386:  DO    560     J=l ,6 

387:  560  IN( J)=IPN(I, J) 

388:  CALL  TEXT  (XTPCS+. 14 , YTPOS , . 07, I N , 0. . 6 ) 

389:  IF  (I.EQ.NCRV)  GO  TO  590 

390:  CALL  SYMBOL  (XTPCS+0 . 7, YTPOS+ . 035 , . 07, I , 0. , - 1) 

391 :  DC  570  J=l,6 

392:  570    IN( J)=IPN( I+l, J ) 

393:  CALL  TEXT  ( XTPOS+0 . 84, YTPOS, . 07, I N, 0. , 6 ) 

394:  580    CONTINUE 

39S:  590    XTPOS=XSIZE*SCALE+0.4 

396:  YTPCS=0.1*FLOAT(NCRV/2+MOD(NCRV,2) )+0.03 

397:  YLEN=0.1*FLOAT(NCRV/2+MOD(NCRV,2) )+0.03 

398:  CALL  PLOT  ( XTPOS , YTPOS, 3) 

399:  CALL  PLOT  ( XTPOS+l . 425, YTPOS , 2) 

400:  CALL  PLOT  (XTPO S+1 . 425, YTPOS-YLEN, 2 ) 
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CALL  PLOT  (XTPDS,YTP0S-YLEN,2) 
CALL  PLOT  (XTP0S,YTP0S,2) 
CALL  FACTOR  (SCALE) 
WRITE  OUT  INFORMATION  ABOUT  THE  GRAPH  WE  JUST  FINISHED 
DO  610  1=1. IP 
J=IPC(I) 
IPC(I)=KH( J) 
DC  600  K=l,6 
IPNd  ,K)=NAME(  J.K) 
CONTINUE 

IF  ( IPPLOT.EQ.O)  WRITE  (6.760)  (  (  IPN( I , J ) , J  =  1 .6)  . IPC( 1 ) . I  =  1 . I P> 
IF  (IPPLOT'.EQ.I  )  WRITE  (6,680)  (  (  IPN(  I  .  J  )  .  J  =  l  .  6  )  .  IPC  (  I  )  .  1=  1  ,  IP  ) 
WRITE  (6.770)  XL.DELX . XH , YL. DELY , YH 
WRITE  (6,780)  JBUFF.IBUFF 
IF  (IFIG.EQ.O)  WRITE  (6.790)  IHEAD 
IF  (IFIG.NE.O)  WRITE  (6,910)  IFIG. IHEAD 
IF  (lOUT.NE.O)  WRITE  (6.690) 

IF  (YSIZE*SCALE+1.5.GT. 10.75)  WRITE  (6.700) 
XMOVE=XSIZE+7.0 
CALL  PLOT  (XMOVE.O. .-3) 
IPPLOT=0 
IP  =  0 
IPTYP=0 

NGRAPH=NGRAPH+1 

IF  (M0D(NGRAPH.5).EQ.0)  WRITE  (6.750)  ( T I TLE ( I )  .  I =1 . 1 20 ) 
GO  TO  40 

IF  (NSETS.LE.l)  CALL  PLOT  (0..0..999) 
RETURN 
CALL  RWERR 
CALL  RWEOF 


FORMAT  (  11.12, 2F6.0.60A1 ) 

FORMAT  (1H1,120A1) 

FORMAT  (31H0N0  FIND  FOR  INSTRUMENT  NUMBER  .16. 
2  14H  ERROR  ON  THE  19HF0LL0WING  PLOT  CARD . /. 1 X. 80A1 ) 

FORMAT  (17H0CALC0MP  PLOT  OF  .2(6A1.2H  ( . 16. 4H)  ,  ,6A1,2H  (,I6, 
2  5H)      ).20(/.T18.2(6Al,2H  (,I6,4H)  .  ,6A1,2H  (,I6.5H)      ))) 

FORMAT  (29H0P0INTS  OUT  OF  BOUNDS  ON  PLOT) 

FORMAT  (48H0PAPER  WIDER  THAN  12  INCHES  MUST  BE  USED  ON  PL3T) 

FORMAT  (25H0PL0T3  CONTROL  PARAMETERS) 

FORMAT  (1615) 

FORMAT  (8H0   NPRT : . I  5. 2X , 7H  NSMTH : . I5.2X .7H   NOUT  :  . 15 .2X .7H  NAXIS: 
2,I5.2X,7H   NPNT: , 15, 2X,7H   NLEG:,I5) 

FORMAT  (8H   XSI ZE: , F5. 2 , 2X, 7H  YSI ZE : . F5 . 2, 2X , 7H  SCALE:, F5. 2) 

FORMAT  (IHl, 120Al,/,23H0CALCOMP  PLOTS  PREPARED) 

FORMAT  (17H0CA^COMP  PLOT  OF  ,6A1.2H  (,I6.9H)   VERSUS . 3( 2X . 6A1 , 2H  ( 
2.I6.1H) ) ,7(/,T37,3(2X.6Al .2H  ( , 16. IH)) ) ) 

FORMAT  (21H  X-AXIS  LOWER  LIMIT:  .G8.3,21H     DELX  (PER  INCH):  . 
2  G8.3.14H  UPPER  LIMIT:  .G8.3./.21H  Y-AXIS  L3WER  LIMIT:  .G8.3. 


401 : 

402: 

403: 

404: 

c 

405: 

406: 

407: 

408: 

409: 

600 

4io: 

610 

4ii: 

412: 

413: 

414: 

415: 

Aie: 

417: 

418: 

419: 

420: 

42i: 

422: 

423: 

424: 

425: 

426: 

427: 

620 

428: 

429: 

630 

430: 

640 

431 : 

C 

432: 

c 

433: 

650 

434: 

660 

435: 

670 

436: 

437: 

680 

438: 

439: 

690 

440  : 

700 

441 : 

710 

442: 

720 

443: 

730 

444: 

445: 

740 

446: 

750 

447: 

760 

448: 

449: 

770 

450: 
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subprogram:   PL0T3         CALCOMP  plotting   for  data  generated  by  PL0T2 


3  21H     DELY  (PER  INCH):  ,G8.3,14H  UPPER  LIMIT:  ,G8.3) 

FORMAT  (15H  X-AXIS  TITLE:  .40A1./,15H  Y-AXIS  TITLE:  ,40Al ) 

FORMAT  <14H  GRAPH  TITLE:  . 39A1 ,/, 1 4X, 39A 1 ) 

FORMAT  (IH  ) 

FCRMAT  (41H00NLY  CNE  INSTRUMENT  OF  TYPE  1  IS  ALLOWED./, 
2  35H  SECCND  FOUND 'AT  INSTRUMENT  NUMBER  ,13) 

FCRMAT  (80A1/40A1) 

FORMAT  (22H0  TA3LE  OF  I NSTRUMENTS/ ,3X, 

2  41HKH  ITYPE  I.D.        INSTRUMENT  DESCR I PTID N,T87, 6HC0LUMN, /, 1 H 

3  92(IH-) ,/) 

FORMAT  (  16,  I2,66A1.3X,I3) 

FORMAT  <1X,I6,I3,3X,6A1.2X,6  0A1,T87,I6) 

FCRMAT  (42H0C0LUMN  STORAGE  LIMITS  EXCEEDED  AT  COLUMN  ,14,/, 
2  3aH  CHECK  PARAMETERS  NCCL  AND  NRCW) 

FORMAT  (SOAl) 

FCRMAT  (4F10.0) 

FCRMAT  (I2,78A1) 

FORMAT  (SOAl) 

FORMAT  (21H  GRAPH  TITLE:  FIGURE  ,I2,3H:   ,39A1 , / ,26X. 39A1 ) 

END 


451 : 

452: 

780 

453: 

790 

454: 

800 

4  55: 

810 

456: 

457: 

820 

458: 

830 

459: 

460: 

46i: 

840 

462: 

850 

463: 

860 

464: 

465: 

87  0 

466: 

88  0 

467: 

890 

468: 

900 

469: 

910 

470: 

C 

47i: 
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subprogram:   PL0T4         COMPARH  INSTRUMENTS  BETWEEN  DIFFERENT  TESTS 

i:  SUBROUTINE  PL0T4  (NROW . NCOL. REED , KHt ITYPE. NAME. MAXR . MCNL t MAXCNLt 

2:  2  ISKIP) 

3:  C 

4:  C        ♦***♦#**********#***  *:)!**«*****  ^^^^^^^Jlc^t  ****************  *********** 

5:  c 

6:  COMMON  /ERRORS/  ICRD.ISEG 

7:  DIMENSION  REED ( NROW , NCOU ) .KH(NCOL)  .ITYPE<NCCL) . NAME( NCOL .6 ) , 

a:  2  MAXR<NCOL).TITLE(120),IN(80).MCNL(MAXCNL). ISKIP(320) 

9:  DATA  NF  /IHF/ 

lO:  ISEG=5 

li:  ICRD=11 

12:  C 

13:  C    PL0T4  DATA  CARD  Ai:     NPRT.NPNCH 

14:  C    NPRT:    DIRECTS  PRINTING  CF  CONVERTED  DATA 

is:  c   npnch:   directs  punching  of  converted  data 

16:  c 

17:  read  (5.nO.ERR  =  80.END=90)  NPRT.NPNCH 

18:  ICRD=21 

19:  C    PL0T4  DATA  CARDS  Bl  &  82:      TITLE 

20:  C    TITLE:   SPECIFIES  TITLE  OF  EXPERIMENT  PRINTED  AT  TOP  OF  EACH  PAGE 

21  :  C 

22:  READ  (5. 120.ERR=80.END=90)  (TITLE ( I ) .1 =1 . 120 ) 

23:  WRITE  (6.130) 

24:  WRITE  (6.140)  NPRT.NPNCH 

25:  K=l 

26:  WRITE  (6,160) 

27:  10      ICRD=23 

28:  C 

29:  C    PLCT4  DATA  CARDS  83:      1  TYPE. KH .NAME . lEND 

30:  C    ITYPE:   TEST  NUMBER  FOR  THIS  INSTRUMENT 

31 :  C    KH:       instrument  (channel)  number  for  THIS  INSTRUMENT 

32:  C    name:    DESCRIPTION  OF  INSTRUMENT 

33:  C    IEND:    DIRECTS  END  OF  INSTRUMENT  CARDS 

34:  C 

35:  READ  (5.150.ERR  =  80.END=90)  I  TYPE (K ) .KH( K) , ( NAME( K . J ) , J=l  .6 ) , ( IN ( I ) 

36:  2.1=1.60) .IEND 

37:  IF  ( IEND. EQ. 999)  60  TO  20 

38:  WRITE  (6.170)  KH(K) . ITYPE ( K) . ( NAME< K. J) . J=l . 6) . ( IN( J ) . J=l .60 ) .K 

39:  IF  (MOD(K.5).EQ.0)  WRITE  (6,180) 

40:  IF  (MOD(K-35,40)  .EQ.O)  WRITE  (6,100)  (TI TLE (  1) . I =1 , 120 ) 

41:  IF  (MOD(K-35,40) .EQ.O)  WRITE  (6,160) 

42:  K=K+1 

43:  IF  (K.LE.NCOL)  GO  TO  10 

44:  C    TOO  MANY  INSTRUMENTS,  KILL  THE  RUN 

45:  WRITE  (6,250)  K 

46:  CALL  EREXIT 

47:  STOP 

48:  20     MAXC=K-1 

49:  30      ICRD=31 

50:  C 
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subprogram:    PL0T4         COMPARE  INSTRUMENTS  BETWEEN  DIFFERENT  TESTS 

51 :  C    PL0T4  DATA  CARD  CI :      ITEST 

52:  C    ITEST:   test  number  of  this  DATA  SET 

53:  C 

54:  READ  (5,190.ERR=80.END=90)  < IN (I ) , I =1 ,6 ) . ITEST 

55:  IF  (INCD.EQ.NF)  GO  TO  70 

56:  DO  40  I=1.MAXC 

57:  IF  (ITYPE(l) .NE. ITEST)  KH( I ) =KH( I ) +1000* ITYPE( I > 

58:  40      CONTINUE 

59:  CALL  REDCIN  ( NROW.NCOLi REED, KH, 0. 0 ,MAXR . Ot 0 . Ot  I  SKIP ) 

60:  WRITE  (6,200)  ITEST 

61 :  INSTS=0 

62:  DO  50  I=1,MAXC 

63:  IF  (ITYPE<I).NE. ITEST)  GO  TO  50 

64:  IF  (MAXR(l).EQ.O)  GO  TO  50 

65:  INSTS=INSTS+1 

66:  MCNL( INSTS)=ITYPE(I )*1000+KH(I) 

67:  IF  (NPNCH.EQ.O)  GO  TO  50 

68:  MAXROW=MAXR( I) 

69:  WRITS  (NPNCH,220)  MAXROW,MCNL ( INSTS) , (NAME( I , J ) , J=l ,6) 

70;  WRITE  <NPNCH,230)  { REED( J, I ) , J=l , MAXROW) 

71 :  50     CONTINUE 

72;  WRITE  (6,210)  ( MCNL (I ) , 1=1 , I NSTS) 

73:  DO  60  I=1,MAXC 

74:  IF  (ITYPE(I).NE. ITEST)  KH( I ) =KH(I )-l 000* ITYPE( I ) 

75:  60     CONTINUE 

76:  GO  TO  30 

77:  70      IF  (NPNCH.EQ.O)  RETURN 

78:  WRITE  (NPNCH,240) 

79;  END  FILE  NPNCH 

80;  REWIND  NPNCH 

8i;  IF  (NPRT.NE.O)  CALL  PRINT  ( NRCW, NCOL, REED, KH , ITYPE, NAME, 0, MAXR . MAX 

82:  2C, TITLE) 

83:  RETURN 

84:  80     CALL  RWERR 

85:  STOP 

86:  90     CALL  RWEOF 

87:  STOP 

as:  c 

89:  c 

90:  100    FORMAT  (1H1,120A1) 

91:  110    FORMAT  (1615) 

92:  120    FORMAT  (80A1/40A1) 

93:  130    FORMAT  ( 27H0   PL0T4  CONTROL  PARAMETERS,/) 

94:  140    FCRMAT  ( 8H    NPRT : , I  5 , 2X , 7H  NPNCH:, 15) 

95:  150    FORMAT  ( 13, 13 ,2X ,66A 1 ,3X, 13) 

96:  160    FORMAT  ( 22H0  TABLE  OF  INSTRUMENTS/ ,3X, 

97:  2  44HKH     TEST      I.D.      INSTRUMENT  DESCRI PTI0N,T87,6HCCLUMN, /, 

98:  3  IH  ,92(1H-),/) 

99:  170    FORMAT  ( 2X, 13, 3X , 13 , 5X, 6A 1 ,2X, 60A1 ,T87, I  6) 

lOO:  180    FORMAT  (IH  ) 
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subprogram:  plot*      ccmpare  instruments  between  different  tests 


FORMAT  (6A1,I3) 

FORMAT  (/,7H0TEST:  . 13. 1  OX, 1 5HNEW  INSTRUMENTS,/) 

FORMAT  (10(16, 6X>) 

FORMAT  (I6,I6,6A1) 

FORMAT  (8E10.5) 

FORMAT  (77X,3H999) 

FORMAT  (36H0R0W  STORAGE  LIMITS  EXCEEDED  AT  ROW  ,16,/, IX, 
2  30HCHECK  PARAMETERS  NRCW  AND  NCOL) 

END 


loi: 

190 

102: 

200 

103: 

210 

104: 

220 

105: 

230 

106: 

240 

107: 

250 

108: 

109: 

C 

no: 
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subprogram: 


DEFINE 


DEFINITION  OF  DATA  ACQUISITION  SYSTEM 


1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


SUBROUTINE  DEFINE  ( INTYPE, ICHRS, INDAS, I  READ, IT  I  ME,  lEOR, I  EOF, MEDIA, 
2  TITLE,  INSKIP, I  SKIP , NCNL , NTFORM) 

:^:«c  *«:<c:(c*:jc  :4c  4c  :4c  :tc  :)<:{::«<:{<  «^:{c:{;  Jt<***  ******:!:*  *******:4<  **  4c*  **************  *:ti3)c****t 


I  CRD 


2  1H,,1H     ,1HT,1HA 

3  IHR, IHA, IHC, IHK 
DATA  {INPU"r(2.J) 
DATA     (INPUT(3,J) 

2  IH     ,1HI,1HM,1HA 

3  IHS.IH  ,1HP,1HE 
DATA  (INPUT(4,J) 
DATA  (INPUT(5,J) 

2  IH  ,1H1,1HM,1HA 

3  1HS,1H  ,1HP,1HH 
DATA  (INPUT(6,J) 

2  1H,,1H  .IHT.IHA 

3  IHR, IHA, IHC, IHK 
DATA  (INPUT(7,J) 

2  IH  ,1HI,1HM,1HA 

3  1HS,1H  ,1HP,1HE 
DATA  (INPUT(8,J) 

2  1H,,1H  ,1HT,1HA 

3  IHR, IHA, IHC, IHK 
DATA  (INPUT(9,J) 

2  IH  , IHI ,1HM, IHA 

3  IHS.IH  ,1HP,1HE 
DATA  (INPUTdCJ 

2,1H  ,1HI.1HM,1HA 

3  1HS,1H  ,1HP,1HE 

DATA  (READd.J), 

2  1H(,1HC,1H),1H( 

3  IH) , 1H5, IH* ,1H{ 

4  IH  ,1H  ,1H  ,1H 
DATA  <READ(2,J), 

2  IH  , IH  ,1H  ,1H 

3  IH  ,1H  ,1H  ,1H 

4  IH  , IH  , IH  , IH 
DATA  {READ(3,J), 

2  1H(  ,  IHCIH)  ,1H( 

3  IH), IHS.IH*, 1H( 

4  IH  , IH  , IH  , IH 
DATA  (READ(4,J), 

2  IH  ,1H  ,1H  ,1H 


320  ) 
(10  , 
P(32 
J  =  l 
IHP 
3*1H 
J=l 
J=l 
IHG 
IHR 
J=l 
J=l 
IHG 
IHR 
J=l 
IHP 


8*1H  / 


J=l 

IHG 
IHR 
J=l 

IHP 


1H4- 
IHV 
IH 


1H  + 
IHV 
IH 


ISEG 


COMMON  /ERRORS/ 

INTEGER  READ, TIME, EOR, EOF, DAS, 

DIMENSION  ICHPS( 

2  TIME( 10  ,68)  ,ECR 

3  TITLE(120), ISKI 
DATA  (INPUT(1,J) 


1H5 

IH 

38) 

38) 

IHE 

IH 

38) 

IHE 


38) 

IHE 

IH 

38) 

IHE 


IHl 
IH) 
IH 


=1,56)  /IH 


IHl 

IH) 

IH 
J=l,56)  /IH 
, IH  ,1H  , IH 


TFORM 

, IN(80>, INPUT( 10,38) , READ (10 ,56) , 

,28),DAS( 10,22), I CHARS (26), 

,6) 

IHN, IHP, IHU.IHT, 1H=, IHT.IHA, IHP, IHE, 

HF, IHC, IHR, IHM , IHA, IHT, 1H=,1H7, IHT, 

H  / 

IHN, IHP, IHU, IHT, 1H=, 1HC,1HA.1HR,1HD, 

H, , IH  , IHC, IHH, IHA, IHN, IHN, IHE, IHL, 

HI , IHN, IHE, lH=,lHe/ 

H  / 

1HN,1HP.1HU,1HT,1H=,1HC,1HA,1HR,1HD, 

H,  , IH  , IHC, IHH, IHA,  1 HK , IHN , 1  HE. 1 HL , 

HI,1HN,1HE,1H=,1H4/ 

1HN,1HP, 1HU,1HT, 1H=,1HT,1HA,1HP,1HE, 

HF, IHO, IHR, IHM, IHA, IHT, 1H=, 1H7, IHT, 

/1HI,1HN,1HP,1HU,1HT,1H=,1HC,1HA,1HR,1HD, 
1HS,1H,,1H  , IHC, IHH, IHA, IHN,  IHN, IHE, IHL, 
IHL, IHI , IHN, IHE, 1H=,1H4/ 

/IHI, IHN, IHP, IHU, IHT, 1H=, IHT, IHA, IHP, IHE, 
IH  . IHF, IHC, IHR, IHM, IHA, IHT, 1H=, 1H7, IHT, 


INDAS(22) 
6) ,EOF(10 
) ,TFCRM(1 
38)  /IHI, 
IHE, IH  , 1 

/ 
38)  /38*1 
38)  /IHI, 
IHS  .1 
1  HL  ,  1 
/38*1 
/IHI, 
1HS,1 
IHL  ,  1 
/IHI, 
IH  ,1 


8*1H  / 

J=l,38)  /IHI, IHN, 
IHG, IHE, IHS, IH, , 1 
1HR,1H  , IHL, IHI, 1 
,J=1,38)  /IHI, IHN 
IHG, IHE, IHS ,1H, , 1 
1HR,1H  , IHL, IHI, 1 
=1,56)  /IHP, IHE, 1 
H4-,  1 
HE,  1 


1H+,  II 
1H(  ,  11 
IH  ,11 


IHP, 
H  ,  1 
HN,  1 
,  IHP 
H  ,  1 
HN,  1 
HA,1 
H-,1 
H),  1 


IHU, 
HC,  1 
HE,  1 
1  HU 
HC,  1 
HH,1 
HD,1 
H2,l 
H2,  1 


H  ,  1 

IH  ,  1 

IH  , IH  ,  IH  , IH  ,  1 

IH  ,1H  ,1H  ,1H  ,1 

IH  , IH  , IH  , IH  , 1 

J=l,56)  /IHR, IHE, 1 


1H+,  1 

1H(  ,1 

IH  ,  1 

1 

1 


H+,  1 
HE,  1 
H  ,  1 
H  ,1 
H  ,  1 


HA,1 
H-,1 
H)  ,1 
H  ,1 
H  ,1 
H  ,1 


HD,1 
H2,l 
H2,l 
H  ,  1 
H  ,1 
H  ,1 


1 HT, 1H= 
HH, IHA, 
H=,  1H5/ 
, IHT, IH 
HH, IHA, 
H=,1H5/ 
HI  ,  1 HN , 
H-, 1H-, 
H*, 1H( , 
,  IH  , 
,  IH  , 
.IH  . 
.IH  . 
,1H  , 
HI  ,  IHN, 
H-,1 H-, 
H*, 1H( , 
H  ,1H  , 
H  ,1H  , 
H  ,  IH  , 


, IHC, IHA, IHR, IHD. 
IHN, IHN, IHS, IHL, 

=  , IHC, IHA, IHR,  IHD 
IHN, IHN, IHE, IHL, 


IHG, 
IHO, 
IHK, 
IH  , 
IH  , 
IH  , 
IH  , 
IH  , 
IHG, 
IHC  , 
IHK, 
IH  , 
IH  , 
IH  , 


1H=, 
1H9, 
IH  , 
IH  / 
IH  , 
IH  , 
IH  , 
IH  / 
1H=, 
1H9, 
IH  , 
IH  / 
IH  , 
IH  , 


1H3 
IHO 
IH) 

IH 
IH 
IH 

1H3 

IHO 
IH) 

IH 
IH 


ilH*, 

i  IHO, 
I  IH  , 

.  IH  , 
>1H  , 
i  IH  , 

ilH*, 

I  IHO, 

IH  , 

IH  , 
IH  , 
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bprogram:   define 

DEFINITION  OF  DATA  ACQUISITICN  SYSTEM 

5i: 

3  IH  , 

IH  ,1H 

.  IH  , 

IH 

.IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH 

.IH  , 

IH  , 

52: 

4  IH  1 

IH  .IH 

.  IH  , 

IH 

.IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  , 

IH  / 

53: 

DATA 

(READ(5 

.J) . J=I. 

56)  > 

'IHR 

.  IHE, 

IHA, 

,IHD, 

IHI 

.IHN, 

IHG, 

IH= 

.IHC  , 

IHN. 

54: 

2  IH), 

XH( ,1HK 

.IH 

.IH) 

.1H3, 

IH*, 

1H(, 

IHC, 

IH)  , 

1H(  , 

IHK, 

IH  , 

IH) 

.  IHC, 

IHR, 

55: 

3  IHOi 

IH  .IH) 

,  1H5 

.  IH* 

.  1H(, 

IHR, 

IH) 

IH2 

IH*, 

IHC 

IHA, 

IH), 

IHC 

.IHK, 

IH  . 

56: 

4  IH), 

IH  ,1H 

.IH 

.IH 

.IH  , 

IH 

.IH  , 

IH  , 

.IH  , 

IH 

.IH  , 

IH  , 

IH  / 

57; 

DATA 

(R£AD(6 

,J)  .. 

J  =  I  . 

56)  / 

'IHR, 

IHE, 

IHA, 

IHD, 

IHI 

.IHN, 

IHG, 

IH= 

.IHC, 

IHK, 

58: 

2  IHC, 

IH) ,1H3 

.  IH* 

.IH( 

.IHC 

IH), 

IH(  , 

IHK, 

IH 

IH) 

.IHC  , 

IHK, 

IH 

.IHO 

IH*. 

59: 

3  IHN, 

IH)',1H{ 

*IH  + 

iIH 

.1H-, 

IH-, 

>1H), 

.  IH6, 

.  IH* 

.IHC 

.IHR, 

IHC, 

IH 

.IH) 

.  I  HC  . 

60: 

4  IHK, 

.IH  .IH) 

.  IH2 

,-IH* 

.  1H(  , 

.IHA, 

IH), 

IH2, 

IH* 

IHC 

.IHK, 

IH  , 

IH)/ 

61: 

DATA 

(READ<7 

.J).. 

1  =  1, 

56)  / 

'IHR, 

IHE 

IHA 

.IHD, 

IHI 

.IHN, 

IHG, 

1H  = 

.IHC, 

IHK, 

62: 

2  IHC, 

1 H )  .  1  H3* 

.IH* 

.IH( 

.IHC, 

.  IH)  , 

1H( 

.  IHK 

.IH 

>1H) 

.IHC  , 

IHK 

.IH 

.IHO, 

IH*. 

63: 

3  IHN, 

,1H)  .1H( 

.IH*- 

.  IH 

.IH-, 

IH-, 

IH)  , 

IH6, 

IH*, 

IHC 

.IHR, 

IHC, 

IH 

.IH), 

IHC. 

64: 

4  IHK, 

IH  ,1H) 

,  1H2 

.  IH* 

.1H(  , 

IHA, 

IH)  , 

1H2, 

IH* 

IHC 

.IHK, 

.IH  , 

IH)/ 

65: 

DATA 

(RE  AD (8 

.J)  .. 

J=I. 

56)  / 

'IHR, 

IHE, 

IHA 

IHD, 

IHI 

.IHN, 

IHG, 

IH  = 

.  1H3, 

IH*. 

66: 

2  1H{, 

IHC.IH) 

.1H( 

,  IHK 

.IH  , 

IH)  , 

IHC, 

IH  +  , 

IH  + 

.IH- 

.  IH-, 

IHO 

IH 

.IH) 

1H5. 

67: 

3  IH*, 

1H( , IHV 

.  IHO 

.IH 

.IH), 

IH( 

.IHV, 

.  IHK 

.IH 

.IH) 

.  1H3 

.  IH* 

.IHC 

,IHA 

.IH)  . 

68: 

4  1H{ 

.IHE.IHO 

.IH 

.IH) 

.1H( 

.IHK 

.  IHX, 

IH), 

IH 

.IH 

.IH 

.IH 

IH  / 

69: 

DATA 

(READ(9 

.J)  ,. 

i=l. 

56)  y 

'IHR, 

IHE, 

IHA 

IHD 

.IHI 

.IHN, 

IHG, 

IH  = 

.1H3, 

IH*, 

70: 

2  1H(, 

IHC.IH) 

.1H(, 

IHK 

.IH  , 

IH), 

IH( 

.  IH+, 

,IH* 

.IH- 

,IH- 

,  IHO 

.IH 

.IH) 

.IH5. 

71: 

3  IH*, 

1H( ,1HV 

.IHO 

.IH 

.IH)  , 

.1H{  , 

.IHV, 

IHK, 

.  IH  , 

.IH) 

.  IH3, 

IH*, 

IHC 

.IHA, 

IH)  . 

72: 

4  1H( 

. 1  HE . 1  HO 

.IH 

,1H) 

.  IHC  , 

.  IHK 

IHX, 

IH), 

IH 

.IH 

.IH  , 

IH  , 

IH  / 

73: 

DATA 

<READ(1 

D.J) 

.J  =  I 

,56) 

/IHF 

?.IH£ 

i.  IH/ 

\,   IH[ 

5.1H 

[.  IHr 

«l.  1H< 

i.  IH: 

=  .  IH 

,IHC 

74: 

2  IH* 

IHK. IH 

.IH) 

IH3 

«  IH* 

IH( 

IHC 

.IH) 

.1H( 

.  IH+ 

.IH  , 

.IH-, 

IH- 

,IH), 

IH6. 

75: 

3  IH* 

,1H( .IHR 

.IH) 

.IH( 

.  IHA, 

.  IH)  , 

,  1H2 

.  IH* 

.IH( 

.IHK 

.IH 

.IH), 

.IH 

.IH 

.IH  . 

76: 

4  IH 

>1H  «1H 

.IH 

.IH 

.IH  , 

IH 

.IH  , 

IH  , 

IH 

.IH 

.IH 

.IH 

.IH  / 

77: 

DATA 

( T  I  ME  <  1 

•  J)  .. 

)  =  I. 

68)  / 

'IHT 

.IHX, 

IHM 

IHE 

.IH  = 

.  IH3, 

IH*, 

IHC 

.IHS, 

IH)  . 

78: 

2  1H(, 

. IHK.1H6 

.IH) 

.  IH6 

.  IH* 

.IH(, 

.  IHS 

.  IH) 

.IH2 

.IH* 

.IHC 

.IHK 

.IH 

.IH)  , 

.IH  . 

79: 

3  IH  , 

IH  .IH 

.  IH 

.  IH 

.IH 

.  IH  , 

.IH 

.  IH 

.  IH 

.IH 

.IH 

.IH 

.IH 

.IH  , 

.IH  . 

80: 

4  IH  , 

.IH  ,XH 

.IH 

.IH 

.IH 

.  IH 

.IH 

.IH 

.IH 

.IH 

>IH 

.IH 

.IH 

.IH 

.IH  . 

81: 

5  IH 

ilH  .IH 

.IH 

.IH 

.IH 

.IH 

iIH  , 

.  IH 

.  IH  4 

f 

82: 

DATA 

(T1ME(2 

.J)  .. 

)  =  I  . 

68)  y 

I'lH 

.  IH 

.  IH 

.  IH 

.IH 

ilH 

.  IH  , 

.  IH 

.IH 

.  IH  , 

83: 

2  IH 

ilH  .IH 

.IH 

.  IH 

.IH 

.IH 

.IH 

.  IH 

.IH 

.IH 

ilH 

.IH 

.IH 

.IH 

.IH  , 

84: 

3  IH 

ilH  .IH 

.IH 

.IH 

.IH 

.IH 

>IH 

.  IH 

.IH 

■  IH 

.IH 

.IH  , 

IH 

>  IH 

.IH  , 

85: 

4  IH 

ilH  « IH 

.IH 

.IH 

.IH 

.IH 

.IH 

.IH 

.  IH 

.IH 

iIH 

.IH 

.  IH 

1  IH 

.  IH  , 

86: 

5  IH 

,1H  ,1H 

.IH 

ilH 

.  IH 

.IH 

.  IH 

.  IH 

.  IH  s 

f 

87: 

DATA 

<TIME(3 

.J). 

J  =  I. 

68)  J 

MHT 

.IHI 

.IHM 

,IHE 

.IH= 

.IH3 

,  IH* 

.IHC 

.IHS, 

IH)  , 

88: 

2  1H( 

, 1 HK  .  1  H6 

.IH) 

,  IH6 

.IH* 

.IH( 

.IHS 

.IH) 

.  IH2 

.  IH* 

1  1H( 

.  IHK 

.  IH 

1  IH) 

.  IH  , 

89: 

3  IH 

.IH  .IH 

.IH 

.  IH 

,IH 

.IH 

.IH 

.IH 

.IH 

.IH 

,IH 

.  IH 

.  IH 

.IH  , 

>  IH  . 

90: 

4  IH 

.IH  .IH 

.IH 

.IH 

.IH 

.IH 

iIH 

.IH 

.IH 

.IH 

•  IH 

.IH 

.IH 

.IH 

.IH  . 

9i: 

5  IH 

►IH  ,1H 

.IH 

.IH 

.IH 

iIH 

iIH 

.  IH 

.IH  . 

/ 

92: 

DATA 

(T1ME(4 

.J). 

J=I  . 

68)  y 

'IH 

.IH 

.  IH 

.IH 

.IH 

•  IH 

.IH 

.IH 

.IH 

.IH  , 

93: 

2  IH 

.IH  .IH 

.IH 

.IH 

.IH 

ilH 

.IH 

.  IH 

.  IH 

.IH 

ilH 

.  IH 

.IH 

.IH 

.IH  , 

94: 

3  IH 

.IH  ,1H 

.IH 

.IH 

.IH 

.IH 

•  IH 

1  IH 

.  IH 

.IH 

.IH 

.IH 

.  IH 

.IH 

.IH  . 

95: 

4  :h 

,1H  .IH 

.IH 

.IH 

*1H 

ilH 

ilH 

.IH 

.IH 

.IH 

.IH 

.IH 

.IH 

.IH 

.IH  . 

96: 

5  IH 

•IH  «1H 

.IH 

.IH 

•  IH 

>IH 

.IH 

.IH 

,IH  i 

f 

97: 

DATA 

(TIME(5 

.J).. 

J  =  l  . 

68)  i 

'IHT 

.IHI 

.  IHM 

.IHE 

•  IH  = 

>IH2 

.  IH* 

.  IHC 

.  IHH 

.  IH)  . 

98: 

2  1H{ 

1 ihk.ih: 

.  IH) 

.  1H2 

.  IH* 

,IH( 

.  IHM 

.IH) 

.  1H7 

.IH5 

.  IH* 

.IHC 

.IHK 

.IH 

.IH). 

99: 

3  IH 

.IH  ,1H 

.IH 

,IH 

.IH 

•  IH 

.IH 

.IH 

.IH 

.IH 

•  IH 

.  IH 

.  IH 

t  IH 

.  IH  , 

100: 

4  IH 

> IH  . IH 

.IH 

.IH 

.IH 

.  IH 

.  IH 

.IH 

.IH 

.IH 

.  IH 

.  IH  , 

.IH 

.  IH 

.  IH  , 
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lOi: 
102: 

1  03: 
104: 
105: 
106: 
107: 
108: 
109: 
110: 
111 : 
112: 
113: 
114: 
1 15: 
lie: 
117: 
118: 
119: 
120: 
121: 
122: 
123: 
124: 
125: 
126: 
127: 
128: 
129: 
130: 
13  1 : 
132: 
133: 
134: 
135: 
136: 
137: 
138: 
139: 
140: 
141 : 
142: 
143: 
144: 
145: 
146: 
147: 
148: 
149: 
150: 


DEFINE 

DEFINITI 

5     IH     . 

IH     ,  IH 

IH 

DATA 

(TIME(6 

.  J)  . 

2     IHN, 

IH) , 1H2 

,  IH* 

3     IH), 

1H2, IH* 

.  1H( 

4     IHK, 

ih:  .IH) 

,1H2 

5     1H(, 

IHK.lHR 

.IH) 

DATA 

(TIME (7 

.J). 

2    IHN, 

IH) ,1H2 

,  IH* 

3     IH), 

1H2.1H* 

.  1H( 

4     IHK, 

1h: , IH) 

.  1H2 

5     1H(  , 

IHK.lHR 

.IH) 

DATA 

(TIME (8 

,J)  . 

2    1H2, 

1H*.1H( 

.  IHH 

3    ih:  , 

IH) .1H2 

.  IH* 

4     IH), 

IH     .  IH 

1  IH 

5     IH     , 

IH     ,  IH 

1  IH 

DATA 

(TIME (9 

.J)  . 

2    1H2, 

1H*,1H( 

,  IHH 

3    ih:  , 

IH) .1H2 

.  IH* 

4     IH), 

.IH     ,1H 

,1H 

5     IH     , 

IH     ,  IH 

.IH 

DATA 

(TIME(1( 

J.J  ) 

2    1H5, 

IH* .1H( 

.IHK 

3     1H2 

IH*. 1H( 

.  IHM 

4     IH     , 

IH) , 1H( 

,  IHK 

5     IH     , 

IH     .IH 

.IH 

DATA 

(ECRd, 

J).  J 

2     IH    , 

IH     ,  IH 

1  IH 

DATA 

(E0R(2. 

J). J 

2     IH 

IH     .  IH 

.IH 

DATA 

(ECR(3,. 

J  ).  J 

2     IHX 

IH)  ,  IH 

.IH 

DATA 

(ECR(4.. 

J).  J 

2     IH    , 

IH     .  IH 

.IH 

DATA 

(ECR(5. 

J). J 

2     IH), 

,IH     .IH 

.IH 

DATA 

(E0R(6. 

J).  J 

2     IH    , 

IH     ,1H 

.  IH 

DATA 

(E0R(7, 

J).  J 

2     IHX 

.  IH)  .IH 

.IH 

DATA 

(ECR(8, 

J).  J 

2    IH    , 

IH     ,  IH 

.  IH 

DATA 

(ECR(9. 

J).  J 

2     IHX 

,  IH)  .  1H{ 

,  IHK 

DATA 

(EOR( 10 

.  J)  . 

2     IH) 

IH     .  IH 

.  IH 

DATA 

(ECFd  , 

J).  J 

2     IH 

,1H     tlH 

.IH 

3      IH 

.IH    / 

DATA 

(EOFCa, 

J).  J 
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. IH  .IH  . IH  . IH  . 
J=1.68)  /IHT.IHI. 
,1H(.1HK.1H  ,1H). 
1  IHH,  IH)  , 1H(  . IHK  , 
,  1H*,1H(,  IHS.  IH), 
,  lH-2,  IH*.  1H(  ,  IHK, 
J=1.68)  /IH-^.IHI. 
.1H(  .IHK.IH  , IH) , 
,  IHH, IH)  .  1H(  ,  IHK. 
, IH*. 1H( .IHS.IH) . 
.  1H2. IH*. 1H(  . IHK. 
)=1,68)  /IHT.IHI, 

i1H).ih(,ihk.ih:, 

,1H( .IHS.lH) .1H4. 
.  IH  .IH  ,1H  .IH  , 
I IH  , IH  .IH  ,1H  . 
J=1.68)  /IHT.IHI, 

,ih).ih(.ihk,ih:, 

,1H(  ,  IHS, IH)  , 1H4, 

.IH  ,1H  ,1H  .IH  . 

. IH   , IH  , IH  . IH  . 

.J=1.68)  /IHT.IHI 

,  IH  .IHN. IH) . 1H2. 

.  IH)  , 1H(  ,  IHK, IH  , 

. IHH.IH) . 1H4. 1H4. 

,1H  .IH  .IH  ,1H  . 

=1. 16)  /IHE, IHC. 1 

.IH  ,1H  / 

=  1  .  16)  /IH  .  IH  ,  1 

,  IH  , IH  / 

=1.16)  /IHE, IHC, 1 

,1H  , IH  / 

=  1,16)  /IH  ,  IH  ,  1 

.IH  ,1H  / 

=1.16)  /IHE, IHC. 1 

,1H  , IH  / 

=1.16)  /IHE, IHC, 1 

,1H  ,  IH  / 

=1,16)  /IHE, IHC, 1 

,1H  . IH  / 

=1,16)  /IHE, IHC, 1 

,1H  . IH  / 

=l! 16)  /IHE. IHO, 1 

,1H  .IH)/ 

J=l ,16)  /IHE, IHC, 

,1H  , IH  / 

=1.28)  /IHE, IHO. 1 

,1H  ,1H  .IH  ,1H  , 


IH  , 
IHM. 
1H2, 

ih:. 

1H(, 
IH  . 
IHM, 
1H2. 

ih:, 

1H(  . 
IH  . 
IHM. 
IH)  . 
IH*. 
IH  , 
IH  . 
IHM. 
IH). 
IH*. 
IH  . 
IH  , 
.IHM 
IH*. 
IH). 
IH*. 
IH  , 
HR.l 


IH  / 
1HE.1H= 
IH*. 1H{ 
IH) . 1H2 
1 H<  .  1 H 
IH)/ 
1HE.1H= 
IH*. 1H( 
IH) ,1H2 
IHK.IH 
IH)/ 
IHE, 1H= 
1H2,1H* 
1H( ,1HK 
IH  .IH 
IH  / 
1HE.1H= 
1H2. IH* 
1H(  .IHK 
IH  ,1H 
IH  / 
. IHE.l H 
1H( . IHH 
1H2, IH* 
1H( .IHK 
IH  / 
H=, IHE, 


H  , IH  , IH  . 

HR,  1H=,  1H(  , 

H  , IH  . IH  , 

HR. 1H=.  IH8  . 

HR. 1H=, IHE, 

HR,1H=, 1H( . 

HR, 1H=, IHE. 

HR, 1H=. 1H( , 

IHR, 1H=, 1H7 

HF, 1H=, IHE, 

1 H  ,  1 H  ,  IH 


IH 


IH 


IH  ,  IH 


.1H4 

IH* 

.1H( 

.IHK, 

.IHD 

IH), 

1H(, 

IHK, 

.IH*, 

1H( 

.  IHM 

.  IH)  , 

,1H) 

1H(, 

IHK, 

IHH. 

.1H4 

.  IH* 

.1H( 

.IHK, 

.IHD, 

IH) 

1H( 

.  1H<, 

,1H*, 

1H( 

.IHM 

.  IH)  , 

.IH) 

.1H( 

.IHK 

.IHH, 

,1H3 

.  IH*, 

.  1H( 

.IHD, 

.1H( 

.  IHM 

.IH) 

.1H(  , 

.  IH 

.IH) 

.  1H( 

.IHK, 

.IH 

.IH 

.  IH 

.IH     , 

.1H3 

.  IH* 

.  1H( 

•  IHD. 

.1H{ 

.  IHM 

.  IH) 

.  1H(  . 

.IH 

ilH) 

.1H( 

.IHK, 

.IH 

.  IH 

.  IH 

.IH     . 

=  .  IH 

[ , IHK.IH 

,1H) 

,1H) 

.  1H( 

.  IHK 

.IH    , 

,1H( 

,  IHS 

.  IH) 

,1H(  , 

,1H 

.IH) 

.IH 

•  IH     . 

IHO, 

IHR. 

IH     , 

IH     ,1 

IH     , 

IH     . 

IH     , 

IH     ,1 

IHK, 

IH     , 

IH)  , 

IH(,  1 

IH     , 

IH      , 

IH     . 

IH     .1 

IHO, 

IH*. 

IH{  . 

IHK.l 

IHO, 

IHR, 

IH     , 

IH     .  1 

IHK, 

IH     . 

IH)  , 

IH(  ,1 

IHC, 

IHR, 

IH     , 

IH     ,1 

IHK. 

IH     ,. 

LH)  . 

IH(,1 

,1H0 

,  IH* 

.  1H( 

.  IHK, 

IHC. 

IHF,] 

IH     . 

IH     ,1 

,  IH 

.  IH 

.  IH 

,1H     , 

IH      , 

IH     , 

IH     , 

IH     ,  1 

IH-i 
IH 
1H( 
IH) 

1H-, 

IH 

1H( 

IH) 

IH) 

IHK, 
IHX, 
IH 

IH) 

IHK, 
IHX, 
IH 

,1H] 
IH) 
IHK, 
IH 

H  , 

H  , 

HK, 

H  » 

H  , 

H  , 

HK, 

H  , 

HK, 

IH 

H  , 
IH 
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151  : 
152: 
153: 

154: 
155: 
156: 
157: 
158: 
159: 
160: 
lei: 
162: 
163: 
164: 
165: 
166: 
167: 
168: 
169: 
170: 
171 : 
172: 
173: 
174: 
175: 
176: 
177: 
178: 
179: 
180: 
181 : 
182: 
183: 
184: 
185: 
136: 
187: 
188: 
189: 
190: 
191 : 
192: 
193: 
194: 
195: 
196: 
197: 
198: 
199: 
200: 


2  IH 

3  IH 
DATA 

2  IHI 

3  IHD 
DATA 

2  IH 

3  IH 
DATA 

2  IHI 

3  IHD 
DATA 

2  IH 

3  IH 
DATA 

2  IHI 

3  IHD 
DATA 

2  IH 

3  IH 
DATA 

2  IHI 

3  IHD 
DATA 

2  IHI 

3  IHD 
DATA 

2  IH 

DATA 
2  IH 

DATA 
2  IH 

DATA 
2  IHU 

DATA 
2  IHD 

DATA 
2  IHA 

DATA 
2  IHA 

DATA 
2  IHD 

DATA 
2  IHD 

DATA 
2  IHT 

DATA 

2  IHO 

3  1H( 
DATA 


flH  flH  , 
f  IH  / 

(E0F(3,J 
t IH) .1H( , 
tlH)/ 

(E0F(4, J 
.IH  tlH  . 
.IH  / 

(E0F(5. J 
.IH) .1H( . 
.IH)/ 

(E0F(6. J 
.IH  .IH  . 
.IH  / 

(E0F(7, J 
. IH) . 1H(  , 
,1H)/ 

(E0F(8. J 
•IH  .IH  . 
.IH  / 

(E0F(9. J 
. IH) .1H( . 
.IH)/ 

(EOFdO. 
.IH) .1H( . 
.IH)/ 

(DASd.J 
.IHS. IHE. 

{DAS(2, J 
. IH  . IH  . 

(DAS(3. J 
, IHS. IHE, 

(DAS(4, J 
.IHC. IHE. 

<DAS(5. J 
. IHA, IHT, 

(DAS(e, J 
.IHN.IHG. 

(DAS(7, J 
, IHN, IHG, 

(DAS(8, J 
. 1  HA . 1 HT . 

<DAS(9, J 
, IHA. IHT. 

(DAS( 10. 
. IHR, IHE, 

( ICHARS( 
.IHK.IHD. 
. IH) , 16/ 

(TFORMCl 


IH  , IH  ,1H  ,1H 


).J=1.28)  / 

IHK.IHL.IH) 

).J=1.28)  / 

IH  .IH  .IH 

).J=1.28)  / 

IHK.IHL .IH) 

).J=1.28)  / 

IH  .IH  .IH 

).j=i,2e)   / 

IHK, IHt, IH) 

).J=1.28)  / 

IH  ,1H  .IH 

).J=1.28)  / 
IHK. IHL.IH) 

J) . J=1.28) 

IHK, IHL ,1H) 


).  J  = 

IHR. 
),J  = 
IH  , 
),  J  = 
IHR, 
),  J  = 
IHD. 
),  J  = 
IHA, 
),J  = 
IHU, 
).  J  = 
IHU. 
).  J= 
IHA. 
),  J  = 
IHA, 
J)  ,  J 
IHN, 
I)  .  I 
IHH, 


1,22)  / 

IHI , IHE 
1,22)  / 
IH  .IH 
1.22)  / 
IHI . IHE 
1.22)  / 
IH  .IHD 
1,22)  / 
IH  .IHE 
1.22)  / 
IHS.IH 
1,22)  / 
IHS.IH 
1.22)  / 
IH  .IHN 
1.22)  / 
IH  ,1HN 
=1,22) 
IHD, IH 
=1 ,26) , 
IHM. IHS 


.  IH 

.IH     , 

IH    , 

IH 

.IH     , 

IHE. 

IHC.l 

HF.l 

LH=. 

IH(  ,1 

.1H( 

.  IHK, 

IHE, 

IH) 

.1H(  , 

IH     . 

IH     .  1 

H     .1 

LH     . 

IH     .1 

.IH 

1  IH     , 

IH    , 

IH 

.IH     , 

IHE. 

IHO.  ] 

HF, 

IH=. 

IH(  .  1 

,  1H( 

,  IHK 

IHE, 

IH) 

.1H(  . 

IHE. 

IHC.  1 

IHF. 

IH=. 

IHE,  1 

.IH 

,1H    , 

IH    , 

IH 

,1H     . 

IHE, 

IHO.] 

LHF.] 

IH=. 

IH{  .  1 

,  1H( 

.IHK, 

IHE 

.IH) 

.  1H(  . 

IHE, 

IHC.  1 

IHF,] 

IH=. 

IHE,  1 

.IH 

.IH     , 

IH 

.  IH 

.IH     , 

IHE. 

IHC.l 

LHF. 

IH=. 

IH(  ,1 

.1H( 

,  IHK, 

IHE 

.IH) 

>  1H(  . 

/IHH 

,  IHO 

.  IHF 

,1H  = 

.IH(  , 

.1H( 

.  IHK 

IHE 

.IH) 

.1H(  . 

IHV. 

IHI. 

LHD. 

IHA. 

IHR.l 

.IHS 

.IH 

.  IH 

.  IH 

,1H     , 

IH     , 

IH     , 

IH     . 

IH     , 

IH     ,  1 

.IH 

,1H 

.IH 

.IH 

,1H     , 

IHV, 

IHI,] 

IHD, 

IHA, 

1H(?,  1 

.  IHS 

ilH 

.  IH 

.IH 

.IH     . 

IHS, 

IHP.l 

IHE, 

IHE. 

IHD.l 

,1HA 

,  IHT, 

IHA 

.  IH 

,1H     , 

IHV, 

IHI, 

LHD, 

IHA, 

IHR,  1 

,1HI 

,  IHG 

.IHH 

,1HT 

,1H     , 

IHE, 

IHS,] 

IHT. 

IHE, 

IHR,  1 

,1HP 

,1HD 

,  1H2 

.IHO 

,  1H6, 

IHE, 

IHS,  ] 

IHT. 

IHE, 

IHR,  1 

.IHP 

,  IHD 

.  1H2 

.IHO 

,1H6. 

IHV, 

IHI, 

IHD. 

IHA. 

IHR.  1 

.IHI 

,  IHN 

.  IHE 

.  IH 

.IH     . 

IHV, 

IHI, 

IHD, 

IHA, 

IHR.  1 

,  IHI 

,  IHN 

,  IHE 

,1H 

.IH     . 

/IHD 

,  IHC 

.  IHR 

,1HI 

,  IHC, 

,  1H2 

,1H2 

•  IHO 

.IH 

,1H     , 

NCHARS    / 

IHN. 

IHA, 

IHC,  1 

,1H( 

,1H) 

.  IHS 

.  1H< 

•  IHI  , 

IH  ,1H  .IH  .IH  .IH  . 

HK.IHF.IH) . 1H( .IHK. 
IHK. IHN, IH) .1H( .IHK. 

H  .IH  .IH  .IH  .IH  . 
IH  ,1H  . IH  . IH  . IH  . 

HK. 1HF,1H).1H( ,1HK, 
IHK. IHN. IH) . 1H(. IHK. 

HO.IHF.IH  ,1H  .IH  . 
IH  , IH  .IH  .IH  . IH  . 

HK.IHF. IH) . 1H( .IHK. 
IHK, IHN.IH) .IHC.IHK. 

HO.IHF.IH  ,1H  .IH  . 
IH  . IH  . IH  . IH  .IH  . 

HK.IHF.IH) ,1H< .IHK. 
IHK, IHN, IH) , 1H( , IHK, 

1  HK . 1 HF , 1 H ) , 1 H ( . 1 HK . 
IHK, IHN. IH) . 1H( . IHK, 

H  .1H5.1H4. IHO.IHO. 

IH  / 

H  . IH  . IH  . IH  . IH  . 

IH  / 

H  . 1H5. 1H4. IHO.IHO. 

IH  / 

H2.1H  , IHR. IHE. IHD. 

IH  / 

H  . IHA. IHU. IHT. IHO. 

IH  / 

HL. IHI , IHN. IHE.IH  • 

1H4/ 

HL.IHI, IHN, 1HE,1H  . 

1H4/ 

H  . IHA. IHU. IHT. IHO. 

IH  / 

H  .IHA. IHU, IHT, IHO, 

IH  / 

IH  .IHD. IHI. IHG. IHI. 

IH  / 

H*. 1H-. IHV.IHR.IHE. 

IHP. 1H=, IHK, IHS. IHF, 


. J),J=1.6).NF0RM  /1H7,1HT.1HR.1HA.1HC.1HK.1/ 
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201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242 

243 

244 

245 

246 

247 

248 

249 

250 


DATA  NI,NC.NT,NR,NE,NF,NBL,NEQU.NSTAR  /I  HI , 1 HC .  1 HT ,  IHR,  IHE t IHF, 1 H 
2. 1H=,1H*/ 
C    DECODE  THE  DATA  ACQUISITION  SYSTEM  SPECIFICATIONS 

1C  =  1 

WRITE  (6,750)  (T  ITLE (  I  )  , I  =  1 , 1 20) 

IF  (INTYPE.EQ.O)  WRITE  (6.710) 

IF  ( INTYPE.GE.l .AND.INTYPE.LE. 10)  WRITE  (6.720)  ( DAS( INTYPE . J ) . J=l 
2.22) 

DO  440  NCRD=1,5 

ICRD=30+NCRD 

IF  ( INTYPE. NE.O)  GO  TO  10 
C 

C    PLOTl  OR  PLCT2  DATA  CARDS  CI  -  C5:    IN 
C    in:       SPECIFIES  DATA  ACQUISITION  SYSTEM  FORMAT 
C 

READ  (5,700.END=660.ERR=670)  ( IN ( I ) . 1=1 , 80) 

GO  TO  110 
C    IT'S  ONE  OF  THE  PREASSIGNED  TYPES.  GET  IT 
10      IF  (  INTYPE. GE.  LAND.  INTYPE. LE.  10.  AND.  INTYPE. NE. 2)  GO  TO  20 

WRITE  (6,690) 

CALL  EREXIT 

STOP 
20     DO  30  1=1.80 
30      IN(I)=1H 

DC  80  1=1.68 

IF  (NCRD.NE.l)  GO  TO  40 

IF  (I.GT.38)  GO  TO  90 
IN(1 )=INPUT( INTYPE. I ) 
40      IF  (NCRD.NE.2)  GO  TO  50 

IF  (I.GT.56)  GO  TO  90 

IN( I)=READ( INTYPE, I ) 
50      IF  (NCRD.NE.3)  GO  TO  60 

IN(  I)=TIME( INTYPE, I) 
60      IF  (NCRD.NE.4)  GO  TO  70 

IF  (I.GT,16)  GO  TO  90 

1N(I)=E0R( INTYPE, I) 
70      IF  (NCRD.NE.5)  GO  TO  80 

IF  (I.GT.28)  GO  TO  90 

IN(I)=EOF( INTYPE, I) 
80     CONTINUE 
90     DO  100  J=l,22 
100     INDAS( J ) =DAS(INTYPE. J) 

IF  ( INTYPE. EQ. 4)  GO  TO  450 
110    WRITE  (6,730)  ( IN ( I ) , 1= 1 , 80 ) 
C    IS  CARD  AN  INPUT  CARD 

IF  (IN(1 ) .NE.NI )  GO  TO  160 

IF  ( IN(7).NE.NT)  GO  TO  1 4C 
C    CARD  IS  INPUT  TAPE.  DECODE  IT 

'^EDIA  =  2 

IF  (IN(24) .NE.NEQU)  GO  TC  670 
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251 :  DO  130  NTF0RM=1 t NFORM 

252:  DC  120  1=25,30 

253:  J=I-24 

254:  IF  (IN( I).NE.TFORM(NTFORM, J) )  GO  TO  130 

255:  120    CONTINUE 

256:  GO  TO  440 

257:  130    CONTINUE 

258:  GO  TO  670 

259:  140     ME0IA=1 

260:  IF  (IN(37) .NE.NEQU)  GO  TO  670 

261 :  NCNL=0 

262:  DO  150  1=38,80 

263:  CALL  DIGIT  ( IN( I ) , I D I G.  I  STAT ) 

264:  IF  (ISTAT.NE.O)  GO  TO  440 

265:  NCNL=NCNL*10+IDIG 

266:  150    CONTINUE 

267:  GO  TO  440 

268:  C    IS  CARD  A  READING  CARD 

269:  160     IF  ( IN( 1 ) .EQ.NR)  IREAD=IC 

270:  C    IS  CARD  A  TIME  CARD 

27i:  IF  (IN(1 ).EQ.NT)  ITIME=IC 

272:  C    IS  CARD  AN  END  OF  RECORD  CARD 

273:  IF  (IN( 1 ) .NE.NE.OR. IN(3) .NE.NR)  GO  TO  170 

274:  IEOR=IC 

275:  IF  (MEDIA. EQ.l)  GO  TO  180 

276:  IF  (IN(5) .NE.NE.0R.IN(7) .NE.NR)  GC  TO  670 

277:  ISUB=IC 

278:  1C=IC+1 

279:  IDIGIT=1 

280:  GO  TO  430 

28i:  C    IS  CARD  AN  END  CF  FILE  CARD 

232:  170    IF  (IN(1 ) .NE.NE.0R.IN(3) .NE.NF)  GO  TO  180 

283:  IEOF=IC 

284:  IF  (MEDIA. EQ.l)  GO  TO  130 

285:  IF  ( IN(5) .NE.N5. OR. IN(7) .NE.NF)  GC  TO  670 

286:  ISUB=IC 

287:  IC=IC+1 

288:  IDIGIT=1 

289:  GO  TO  430 

290:  180    ISUB=IC 

291:  IC=IC+1 

292:  IL=0 

293:  IS=0 

294:  DC  190  1=1,80 

295:  11=81-1 

296:  IF  ( IN( I  I ) .NE.NBL.AND.il. EQ.O)  IL=II 

297:  IF  (IN(I).EQ.NEQU)  IS=1+1 

298:  190    CONTINUE 

299:  IDIGIT=1 

300:  NREP=0 
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301 
302 
303 
304 
305 
306 
307 

30  8 
309 
310 

31  1 
312 
313 
314 
315 
31  6 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 


IPAREN=0 

ICHR=IS 
200    DO  210  I=1,NCHARS 

IF  (ICHARS(I) .EQ.IN( ICHR))  GC  TO  240 
210    CONTINUE 
C    CHARACTER  NOT  RECOGNIZED.  IF  IT'S  WITHIN  (),  ASSUME  SPECIAL  CHAR 

IF  (IPARSN.EQ.O)  GO  TO  220 

ICHR=I CHR-l 

GC  TO  340 
220    CALL  DIGIT  ( IN{ I CHR )  , I D IG . I  STAT) 

IF  (ISTAT.NE.O)  GO  TO  230 

NREP=NREP*10+IDIG 

GO  TO  420 
230    IF  (IN(ICHR) .NE.NSTAR)  GC  TC  670 

GO  TO  420 
240    IF  ( IPAREN.NE.l .AND. I .LE. 14)  GC  TO  670 

GO  TO  (250.260.270.280.290.   300,310,320.33  0,340.   350,360,370.38a 
2,390,   400),  I 
C    ANY  NUMERIC  CHARACTER  (DIGIT  0-9) 
250    ICHRS(IC)=-1 

IC=1C+1 

GO  TO  410 
C    ANY  ALPHABETIC  CHARACTER  (ANY  CHARACTER  BUT  A  NUMERIC) 
260    ICHRS(IC)=-2 

IC=IC+1 

GO  TO  410 
C    A  CHANNEL  NUMERAL   (DIGIT  0-9   PART  OF  A  CHANNEL  NUMBER) 
270    ICHRS(IC)=-3 

IC=IC+l 

GO    TO    410 
C  POSITIVE    SIGN    CHARACTER 

280  ICHRS(IC)=-4 

1CHRS( IC+1 )=IN( ICHR+1) 

IC=IC+2 

ICHR=ICHR+1 

GO    TO    410 
C  NEGATIVE    SIGN    CHARACTER 

290  ICHRS(IC)=-5 

ICHRS( IC+l)=IN(ICHR+l) 

IC=IC+2 

ICHR=ICHR+1 

GO    TO    410 
C  MANTISSA    OF    READIMG    (INTEGER    VALUE)     CHARACTER 

300  ICHRS(!C)=-6 

IC=IC+1 

GO  TO  410 
C    MANTISSA  OF  READING  (REAL  NUMBER  WITH  EMBEDDED  DECIMAL)  CHARACTER 
310    ICHRS(IC)=-7 

IC=IC+1 

GO  TO  410 
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EXPONENT  CF  READING  (INTEGER  VALUE)  CHARACTER 

ICHRS(IC>=-8 

IC=IC*1 

GO  TO  410 
OVERFLOW  INDICATOR  (ANY  CHARACTER) 

ICHRS(lC)=-9 

ICHRS(IC+1)=IN(ICHR+1) 

IC=IC+2 

ICHR=ICHR+1 

GO  TO  410 
A  'special  CHARACTER 

ICHRS(IC)=-10 

ICHRS{ IC+1)=IN( ICHR+1) 

IC=IC+2 

ICHR=ICHR+1 

GO  TO  410 
DAYS  COMPONENT  OF  TIME  READING  (NUMERAL  0-9) 

ICHRS( IC)=-11 

IC=IC+1 

GO  TO  410 
HOURS  COMPONENT  CF  TIME  READING  (NUMERAL  0-9) 

ICHRS( IC)=-12 

IC=IC+1 

GO  TO  410 
MINUTES  COMPONENT  OF  TIME  READING  (NUMERAL  0-9) 

ICHRS( IC)=-13 

IC=IC+1 

GO  TO  410 
SECONDS  COMPCNENT  OF  TIME  READING  (NUMERAL  0-9) 

ICHRS( IC)=-14 

IC=IC+1 

GO  TO  410 
A  LEFT  PARENTHESIS.  THE  START  CF  NEXT  CHARACTER  SPECIFICATION 

IF  (IPAREN.NE.O)  GO  TO  670 

IPAREN=1 

ICHRS(IC)=ID1GIT 

ICHRS(1C+1)=0 

ICHRS( IC+2)=0 

ICHRS( lC+3)=0 

IP0SS=IC+1 

IC=lC+4 

NPOSS=0 

GO  TO  420 
A  RIGHT  PARENTHESIS,  THE  END  OF  THIS  CHARACTER  SPECIFICATION 

1CHRS(IP0SS)=IC 

IF  (NREP.EQ.O)  NREP=1 

ICHRS( IPOSS+1 )=NREP 

ICHRS( IP0SS+2)=NPCSS 

IDIGIT=IDIG1T+NREP 

IPOSS=0 


351 : 

c 

352: 

320 

353: 

354: 

355: 

c 

356: 

330 

357: 

358; 

359: 

360: 

36i: 

c 

362: 

340 

363: 

364: 

365: 

366: 

367: 

c 

368: 

350 

369: 

370: 

37i: 

C 

372: 

360 

373: 

374: 

375: 

C 

376: 

370 

377: 

378: 

379: 

C 

380: 

380 

381 : 

382: 

383: 

C 

384: 

390 

385: 

386: 

387: 

388: 

389: 

390  : 

391 : 

392: 

393: 

394: 

C 

395: 

40  0 

396: 

397: 

398: 

399: 

400: 

A- 35 


SUBPROGRA-^: 


DEFINE 


DEFINITIGN  OF  DATA  ACQUISITION  SYSTEM 


401  : 
402: 
403: 
404: 
405: 
406: 
407: 
408: 
409: 

4io: 
4ii: 
412: 
413: 
414: 
415: 
416: 
417: 

41  8: 
419: 

420: 

421 : 

422: 
423: 
424: 

42  5: 
426  : 
427: 
428: 
429: 

43  o: 
431 : 

432: 
433: 
434: 

435: 

436  : 
4  37: 

438: 

439: 
440  : 
441 : 

442: 

443: 

444: 
445: 
446: 
447: 
448: 
449: 
450: 


410 
420 

430 


440 
450 

c 
c 
c 
c 


460 

c 


470 
480 


49  0 

500 


510 


c 

520 


c 

530 


NPOSS=0 

NREP=0 

IPAREN=0 

GO  TO  420 

NPDSS=NPCSS+1 

ICHR=ICHR+1 

IF  (ICHR.LE.IU)  GO  TO  20C 

ICHRS( IC)=-15 

IC=IC+1 

ICHRS( I  SUB) = I  DIG  IT- 1 

CONTINUE 

IF  (INSKIP.EQ.O)  RETURN 

ICRD=41 

PLOTl  OR  PLCT2  DATA  CARD  Di:     IN 

in:       SPECIFIES  CHANNELS  TO  BE  SKIPPED 

READ  (5,700,END=660tERR=670)  ( IN ( I ) , 1=1 , 80 ) 
CHECK  TO  MAKE  SURE  IT  IS  A  SKIP  CARD 

DC  460  I=lt5 

IF  (IN( I) .NE.1CHARS( 1+16) )  GO  TC  620 

CONTINUE 
IT  IS,  DECODE  THE  CARD  INTO  ISKIP 

WRITE  (6.730)  ( I N ( I ) , 1= 1 , 80 ) 

ISKIPd  )=1 

IC  =  2 

DO  470  1=1,80 

11=81-1 

IF  (  IN( I  I)  .NE.NBL)  GO  TO  480 

CONTINUE 

GO  TO  670 

IL  =  II 

IPAREN=0 

IDIGIT=1 

NFINAL=0 

ICHR=6 

DC  500  1=22.26 

IF  (IN( ICHR) .EQ. ICHARS( I ) )  GO  TC  510 

CONTINUE 

IF  {IN( ICHR) .NE.NBL)  GO  TO  670 

ICHR=ICHR+1 

GO  TO  610 

1=1-21 

GO  TO  (520,530.550,560.570).  I 
RECORD  IS  TO  BE  KEPT,  CHARACTER  SPECIFICATION  =  K 

ISKIP(IC)=0 

ISKIP( IC+1 )=0 

GO  TO  540 
RECORD  IS  TO  BE  SKIPPED,  CHARACTER  SPECIFICATION  =  S 

ISKIPC IC)=-1 
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45i:  ISKIP(IC+1 )=0 

452:  540     ICHR=ICHR+1 

453:  CALL  DIGIT  (IN(  ICHR)  tlDIG.  IST.AT) 

454:  IF  (ISTAT.EQ.l)  GO  TO  600 

455:  ISK1P(IC+1 )=ISKIP(IC+I)*10+IDIG 

456:  GO  TO  540 

457:  C    LAST  RECORD  SPECIFICATION,  CHARACTER  SPECIFICATION  =  F 

458:  550    ISKIP(IC)=-2 

459:  NF1NAL=1 

460:  ISKIP(IC+1)=0 

461:  GO  TO  54  0 

462:  C    LEFT  PARENTHESISt  START  OF  A  NEW  SPCIFICATICN 

463:  560    IF  (IPAREN.NE.O)  GO  TO  670 

464:  IPAREN=1 

465:  ISKIP( 1C)=IDIG1T 

466:  ISKIP( IC+1 )=0 

467:  1SKIP( IC+2)=0 

468:  ISKIP(IC+3)=0 

469:  IP0SS=IC+1 

470:  IC=IC+4 

471 :  NPOSS=0 

472:  ICHR=ICHR+1 

473:  60  TO  610 

474:  C    RIGHT  PARENTHESIS.  THE  END  OF  THIS  SPECIFICATION 

475:  570    IF  (IPAREN.NE.l )  GO  TO  670 

476:  IPAREN=0 

477:  IF  (NPOSS.EQ.O)  GO  TO  670 

478:  ISKIP( IPOSS)=IC 

479:  ISKIP(1P0SS+1)=NP0SS 

480:  IDIGIT=IDIGIT+1 

481 :  ISKIP(IPOSS+2)=0 

482:  580     ICHR=ICHR+1 

483:  CALL  DIGIT  < IN( I CHR ) . ID IG, ISTAT) 

484;  IF  (ISTAT.EQ.l)  GO  TO  590 

485:  ISKIP( IP0SS+2>=ISKIP(IP0SS+2)*10+IDIG 

486:  GO  TO  580 

487:  590    IF  (ISKIP(IPOSS+2).EQ.O)  GO  TC  670 

488:  IF  (NFINAL.EQ.l )  I SK IP ( lPCSS+2) =1 SKIP< I P0SS+2)*1 

489:  NFINAL=0 

490:  GO  TO  610 

491 :  600    NPOSS=NPOSS+l 

492:  IC=IC+2 

493:  610    IF  (ICHR.LT.IL)  GO  TO  490 

494:  ISKIP(IPOSS)=C 

495:  WRITE  (6.740) 

496:  RETURN 

497:  C    SIMULATE  CARD  IN  THE  OLD  SINGLE  CHANNEL  FORMAT 

498:  620     IVAL=0 

499:  ISKIP(1)=0 

500:  IC=3 
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501:  DO  650  1=1.80 

502:  630    CALL  DIGIT  ( IN ( I ) , I DI G, ISTAT) 

503:  IF  (ISTAT. EQ.l)  GO  TO  640 

504:  IVAL=IVAL*10+IDIG 

505:  GO  TO  630 

506:  640    IF  ( IN( I ) .NE.NBL)  GO  TO  660 

507:  IF  ( IN( I-l ).EQ.NBL)  GO  TO  650 

508:  ISK1P( IC)=IVAL 

509:  IVAL=0 

510:  IC=IC+1 

511:  650    CONTINUE 

512:  ISKIP(2)=IC-3 

513:  WRITE  (6,680)  (  IN ( I ) , 1  =  1 , 80) 

514:  RETURN 

515:  660    CALL  RWEOF 

516:  670    CALL  RWERR 

517:  C 

518:  C 

519:  680    FORMAT  ( 6H  SKIP= ,80 A  1 ,/l HO ) 

520:  690    FORMAT  (43H0ILLEGAL  FILE  TYPE  SPECIFICATION  FOR  INTYPE) 

521 :  700    FORMAT  (80A1) 

522:  710    FORMAT  (50H0INPUT  DATA  AS  RECORDED  BY  DATA  ACQUISITION  SYSTEM,/, 

523:  2  26H0DATA  FORMAT  SPECIFICATION,/) 

524:  720    FORMAT  (27H0INPUT  DATA  AS  RECORDED  BY  ,22A1,/, 

525:  2  26H0DATA  FORMAT  SPECIFICATION,/) 

526:  730    FORMAT  (IX.SOAl) 

527:  740    FORMAT  (IHO) 

528:  750    FORMAT  (1H1,120A1) 

529:  C 

530:  END 
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i:  subroutine  datain  { nrow.ncol treed^kh, intype , inprt » inpnch, maxr. 

a:  2  ITIME.INERR.INSKIP, lOUT.OUTDIM, ICHRSt INDASt IREAD, ITIM, lEOR t lEOF, 

3:  3  MEDIA. TITLE. MCNU. MAXCNL.  ISKIPtNCNLtNTFORM) 

4:  C 

6:  c 

7:  COMMON  /ERRORS/  ICRD.ISEG 

8:  INTEGER  OUTOI M, FORMAT. RECHRS 

9:  DIMENSION  REED(NROW.NCOL) .KH(NCOL) .lOUT(OUTDIM) .MAXR(NCOL) . 

10:  2  ICHRS(320).INDAS<22).F0RMAT(3).TITLE(120).MCNL(MAXCNL) , 

11:  3  ISKIP<320) 

12:  DATA  NBL.NCOM.NDASH  /IH  .1H..1H-/ 

13:  IF  (INTYPE.EQ.4)  GO  TO  250 

14:  1PRT=0 

15:  IDIAG=0 

16:  IERR=0 

17:  IROW=0 

le:  iREC-o 

19:  RECHRS=0 

20:  10      IRERR=0 

21:  IRDIAG=0 

22:  1=1 

23:  CALL  DREAD  ( lOUT .OJTDIM . INSKIP.L . LCHRS. I REC , IROW. I NTYPE . ICHRS.IREA 

24:  2D. lEOR. lEOF, MEDIA. ISKIP. NCNL .NTFORM) 

25:  IF  (L.LT.O)  GO  TO  190 

26:  00  20  J=l. MAXCNL 

27:  MCNL(J)=-1 

28:  20     CONTINUE 

29:  ICNL=0 

30:  IR=0 

31:  1B=-ICHRS< IREAD) 

32:  IC=0 

33:  IT=0 

34:  JROW=IROW-»-l 

35:  IF  (IROW.LE.NROW)  GO  TO  30 

36:  WRITE  (6.290)  IROW 

37:  CALL  EREXIT 

38:  C    HAS  RECORD  LENGTH  CHANGED   IF  SO.  PRINT  A  WARNING 

39:  30      IF  (IROW.EQ.l)  RECHRS=LCHRS 

40:  IF  (RECHRS. EQ. LCHRS)  GO  TO  40 

41  :  IOIAG=IDIAG-«-l 

42:  IRDIAG=IRDIAG-«-l 

43:  IF  (lERR+IDIAG.GT.INERR.AND. INPRT.NE.-2)  GO  TO  40 

44:  IF  (IRERR+IRDIAG.EQ.l)  WRITE  (6.300) 

45:  WRITE  (6.390)  I REC. RECHRS. LCHRS 

46:  fiECHRS=LCHRS 

47:  C    CHECK  FOR  TIME  OR  CHANNEL  READING 

48:  40      CALL  MATCH  ( lOUT .OUTDI M. ICHRS. IT  I M. I . ISI 6N. I  CHAN. I  DEC. I  VALUE. lEXP. 

49:  2IDAY.IHR.IMIN.ISEC, I  MAT , NCHRS, NO VFL) 

50:  IF  CIMAT.EQ.l)  GO  TO  170 
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5i:  CALL  MATCH  ( lOUT * OUTOIM. ICHRSt IREAOtl* ISIGN« ICHANt I  DEC, I VALUE* lEXP 

52 :  2 . 1  DA Y . I HR» I MI N, I  SEC . I  MAT , NCHRS, NO  VFL ) 

53:  IF  (IMAT.EQ.l)  GO  TO  70 

54:  C    NO  MATCH.  PERHAPS  WE  NEED  AN  ERROR  MESSAGE 
55:  NERR=I+NCHRS 

56:  IF  (lOUT(NERR).EQ.NBLJ  IB=IB+1 

57:  IF  (I0UT(NERR).EQ.NBL.AND.IB.GE.2}  GO  TO  60 

58:  IF  (NERR.GE.LCHRS-ICHRS{ lEOR))  GO  TO  190 

59:  IF  (IABS<NERR-IC).LT.ICHRS(IREAD)-t.ANO.IR.EQ.IROW)  GO  TO  50 

6O:  IERR=IERR+1 

6i:  IRERR=IRERR*1 

62:  IF  (IERR+IDIAG.GT.INERR.AND.INPRT.NE.-2)  GO  TO  5C 

63:  IF  (IRERJi-t-IRDIAG.EQ.l)  WRITE  (6.300) 

64:  WRITE  (6*310)  IREC.NERR 

65:  IC=NERR 

66:  50      IB=0 

67:  60      IR=IROW 

68:  IF  (NERR.GE.LCHRS-ICHRS(IEOR))  GO  TO  190 

69:  1=1+1 

70 :  GO  TO  30 

7i:  70      IF  (NOVFL.EQ.O)  GO  TO  80 

72:  C    OVERFLOW  OF  READINGi  PRINT  AN  ERROR  MESSAGE 
73:  IDIAC=1DIAG+1 

74:  IR0IAG=IRDIAG-I-1 

75:  IF  (IERR+IDIAG.GT.INERR.AND.INPRT.NE.-2)  GO  TO  130 

76:  IF  (IREFR+IROIAG.EQ.l )  WRITE  (6.300) 

77:  WRITE  (6.260)  I REC. NOVFL. ICHAN 

78:  GO  TO  130 

79:  C    A  MATCH  WAS  FOUND  ON  A  READING,  CALCULATE  IT 

8O:  80      IF  (ICNL.EQ.O)  GO  TO  100 
8I:  DO  90  K=l.IC^a. 

82:  IF  (MCNL(ICNL).EQ.ICHAN)  GO  TO  120 

83:  90      CONTINUE 

84:  100    ICNL=ICNL+1 

85:  IF  (ICNL.LE.MAXCM.)  GO  TO  110 

86:  WRITE  (6.260)  ICNL 

87:  CALL  EREXIT 

88:  110    MCNL(ICNL)=ICHAN 
89:  GO  TO  140 

90:  120    IDIAG=IDIAG-t-l 
9i:  IRDIAG=IRDIAG+1 

92:  IF  (IERR+IDIAG.GT.INERR.AND.INPRT.NE.-2)  GO  TO  130 

93:  IF  (  IRERR4-XRDIAG.EQ.1)  WRITE  (6.300) 

94:  WRITE  (6,410)  IREC.I. ICHAN 

95:  130    I=I+NCHRS+1 

96:  IF  ( j.GE.LCHRS-ICHRS(IEOR))  GO  TO  190 

97:  GO  TO  30 

98:  140    DO  150  J=1.NC0L 

99:  IF  (ICHAN.EQ.KH( J))  GO  TO  160 

100:  150    CONTINUE 
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iOi:  I=I+NCHRS+l 

102:  IF  (I.GE.LCHRS-ICHRS(IEOR))  GO  TO  190 

103:  GO  TO  30 

104:  160    REED<IROW,J)=ISIGN*IVALUE*IO.**(-IDEC)*10.**<-IEXP) 

lOS:  IF  ilOEC.NE.O)  REEDdROW.  J)=REED<  IROW,  J)*10. 

106:  I=I+NCHRS+1 

107:  IF  (I.GE.LCHRS-JCHRS(IEORJ>  GO  TO  190 

-lOe:  GO  TO  30 

109:  C    A  MATCH  WAS  FOUND  ON  TIMEt  CALCULATE  IT 

no:  170    IF  (IT.EQ.O)  GO  TO  180 

in:  IERR=IEf<R+l 

112:  IRERR=IREiRR+l 

113:  IF  UERR+IDIAG.GT.INERR.AND.INPRT.NE.-2)  GO  TO  180 

114:  IF     (IRERR+IROIAG.EQ.l)  WRITE  (6,300l 

lis:  WRITE  (6«400)  IREC. I 

116:  180    IT=1 

117:  IVALUE=ISEC+60*IMIN+3600*IHR+86400*IDAY 

118:  IF  4IRCW.EQ.1)  INT=IVALUE 

119:  IF  (ITIME.NE.O)  REED( IROW.JTl ME)  =  1  VALUE-INT 

120:  I=I+NCHRS+l 

12i:  IF  <I,GE.LCHRS-ICHRS(IEOR)>  GO  TO  190 

122:  GO  TO  30 

123:  C    END  OF  RECORD.  PRINT  INPUT  RECORDS  IF  PRINT  FLAGS  ARE  ON 

124:  190    IF  (INPRT.EQ.O)  GO  TO  220 

125:  IF  (INPRT.EQ.-2.AND.1RERR.EQ.0J  GO  TO  220 

126:  IF  <IPRT.EQ.INPRT)  GO  TO  220 

127:  IPRT=IPRT+1 

128:  IF  (MOO(IPRT.IO) .EQ.O)  WRITE  (6«380)  (TI TLE ( I ) . I =1 . 120) 

129:  WRITE  (6.320)  IREC. I  ROW .LCHRS t IRERR. I RDI AG 

130:  NREAD=(130-ICHRS(ITIMJ)/ICHRS(IREAD) 

13i:  NUMPL=NREAD*ICHRS(IREAD)+ICHRS( ITIM) 

132:  IF  .(NUMPL.GT  .LCHRS)  NUMPL=LCHRS 

133:  WRITE  (6.330)  ( lOUT < 1 ) . 1=1 .NUMPL ) 

134:  K=NUMPL+1 

135:  NUMPL=NREAO*ICHRS(IREAD) 

136:  NX=ICHRS{ITIM)+1 

137:  200    IF  <NX.LE.ICHRS(IREAD))  GO  TO  210 

138:  NX=NX-ICHRS(IREAD) 

139:  NUMPL=NUMPL-«-ICHRS(IREAD) 

140:  GO  TO  20  0 

141 :  210    ENCODE  (340. FORMAT)  NX. NUMPL 

142:  IF  (K.LE. LCHRS)  WRITE  (6. FORMAT)  ( IOUT( I ) .1 =K.LCHRS ) 

143:  C    PUNCH  INPUT  RECORD  IF  PUNCH  FLAG  IS  ON 

144:  220    IF  (INPNCH.EQ.O)  GO  TO  230 

145:  NUMPL=(80/ICHRS{IREAO))*ICHRS(IREAD) 

146:  ENCODE  (270. FORMAT)  NUMPL 

147:  WRITE  (INPNCH, FORMAT)  ( IOUT( I ) « 1= 1 .LCHKo ) 

148:  230    IF  (L.GE.O)  GO  TO  10 

149:  NERR=IERR+lDaAG 

150:  IF  (JNTYPE.EQ.O)  WRITE  (6.370) 
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subprogram:   data in 


INPUT  DATA  PROCESSING 


I5i: 

152: 

153: 

154: 

155: 

240 

156: 

157: 

c 

158: 

250 

159: 

160: 

161 : 

c 

162: 

c 

163: 

260 

164: 

165: 

270 

166: 

280 

167: 

168: 

290 

169: 

170: 

300 

I7i: 

310 

172: 

173: 

320 

174: 

175: 

330 

176: 

340 

177: 

350 

178: 

360 

179: 

180: 

370 

l8i: 

182: 

380 

183: 

390 

184: 

185: 

40  0 

186: 

187: 

410 

188: 

189: 

C 

190: 

IF  (INTYPE.NE.O)  WRITE  (6,350)  ( INDAS( I ) , 1= 1 . 22 ) 
WRITE  (6>360)  NERR. I  ERR* I OJAG* IREC, IROW 
DO  240  I=1.NC0L 
MAXR(I)=IROW 
CONTINUE 
RETURN 
INPUT  JS  FROM  REDUCED  DATA  CARD  IMAGES,  GO  READ  THEM 

CALL  REOCIN  ( NROW.NCOL, REED, KH. INPRT. INPNCH. MAXR , ITIME. INERR,INSKI 
2P,ISKIP) 
RETURN 


FORMAT  (22H0INPUT  RECORD  SIZE  OF  ,I5,20H  EXCEEDS  BUFFER  SIZE,/, 
2  23H  CHECK  PARAMETER  MAXCNL ) 

FORMAT  (1H(,I2,3HA1) ) 

FORMAT  (34H  OVERFLOW  WARNING  RECORD:  ,I5,13H 

2  I6.13H     channel:  ,16) 

FORMAT  (36H0ROW  STORAGE  LIMITS  EXCEEDED  AT  ROW  ,14, 
2  31H  CHECK  PARAMETERS  NROW  AND  NCOL) 

FORMAT  </lHO) 

FORMAT  {34H  CHARACTER  SEQUENCE  ERROR  RECORD:  ,15,13H 
2  16) 

FORMAT  <9H0REC0BD:  ,I4.8H    ROW:  .I4.20H 
2  IIH    errors:  ,I4,13H    WARNINGS:  ,14) 

FORMAT  (1X,130A1) 

FORMAT  (1H(,I2,1HX,I3,3HA1)) 

FORMAT  {22H0REAOING  OF  DATA  FROM  ,22A1,10H  COMPLETED) 

FORMAT  (17H  TOTAL  MESSAGES:  , 16,3X, 8HERR0RS :  , I6,3X, lOHWARNl NGS:  , 
2  I6,3X,9HREC0RDS:  , I6,3X,6HMAXR:  ,16) 

FORMAT  <55H0READING  OF  DATA  FROM  DATA  ACQUISITION  SYSTEM  COMPLETED 
2) 

FORMAT  (1H1,120A1) 

FORMAT  (34H  RECORD  LENGTH  WARNING     RECORD!  ,15,13H  OLD  LENGTH:  , 
2  I6,13H  NEW  length:  ,16) 

FORMAT  (34H  MULTIPLE  TIME  ERROR        RECORD:  ,I5.13H   CHARACTER:  • 
2  16) 

FORMAT  (34H  MULTIPLE  READING  WARNING  RECORD:  ,I5,13H   CHARACTER:  . 
2  I6,13H     channel:  ,16) 


character: 


character: 
character  count:  ,14. 


END 
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subprogram:   dread       input  data  reading 

xi  subroutine  dread  (  i  out  .  outd  i  m.  inski  p.  l.»  lchrs  .  irec.  ircwt  i  ntype  . 

2!  2  ICHRSt  IREAD,IECRtlEOF,(i^EDIA,lSKIP.NCNL.NTFORVI) 

3:  c 

5:  c 

6:  INTEGER  OUTDIM 

7:  COMMON  /ERRORS/  ICRD.ISEG 

8:  DIMENSION  lOUT ( OUTDI M) , I  SKI P(320 ) . ICHRS < 320 ) 

9:  DATA  NE.NAT  /IHEtlHS/ 

lO:  10      11=0 
li:  1REC=IREC+1 

12:  IF  (MEDIA. EQ.l)  GO  TO  80 

13:  C    INPUT  IS  TO  BE  FROM  MAGNETIC  TAPE.  READ  A  BLOCK  OF  DATA 
14:  IF  (NTFORM.NE.l )  GO  TO  70 

is:  C    7  TRACK  TAPE  INPUT 
16:  CALL  NTRAN  (7.26.24.22) 

17:  I0UT(1)=NE 

18:  CALL  NTRAN  ( 7 . 2 . OUTDI M, lOUT.LSTAT . 20.L) 

19:  IF  (LSTAT.EQ.-2)  GO  TO  60 

20:  IF  (I0UT(1).EQ.N5)  LSTAT=-4 

2i:  IF  (lOUTd  )  .EQ.NE)  GO  TO  160 

22:  IF  (LSTAT.EQ.-3)  CALL  NTRAN  (7,22) 

23:  IF  (LSTAT.EQ.-3)  LSTAT=L 

24:  IF  (LSTAT.LT.O)  GO  TO  160 

25:  IF  (L.6T.0UTDIM/6)  GO  TO  180 

26:  DC  30  1=1. L 

27:  II=L+1-1 

28:  IC=IOUT(II) 

29:  DO  20  J=1.6 

30:  IK=6*( II-l)+7-J 

3i:  CALL  BYTE  ( I C.7- J, IOUT( IK) ) 

32:  20      CONTINUE 

33:  30     CONTINUE 
34:  LCHRS=6*L 

35:  40      IF  (lOUT(LCHRS) .NE.NAT)  60  TO  50 
36:  LCHRS=LCHRS-1 

37:  GO  TO  40 

38:  50      I0UT<LCHRS+1 )=1H 
39:  I0UT(LCHRS+2)=IHX 

40:  LCHRS=LCHRS+2 

4i:  ICHRS(IE0R)=2 

42:  GO  TO  150 

43:  60      I0UT(1)=1HF 
44:  ICUT(2)=1HI 

45:  I0UT(3)=1HL 

46;  10UT(4)=1HE 

47:  I0UT(5)=1HN 

48:  I0UT(6)=1HD 

49:  ICHRS( IE0F)=6 

50:  GO  TO  170 
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subprogram:      dread  input  data  reading 

5i:  c       other  formats  aren't  defined,    format  error 

52;  70     ICRD=31 
53:  GO  TO  190 

54:  C    INPUT  IS  TO  BE  FROM  CARD  IMAGES,  READ  A  SCAN  OF  DATA 

55:  80     L  =  l 
56:  NE0F=1 

57:  NE0R=1 

58:  90      ICRD=41 

59:  C 

60:  C    PLOTl  OR  PL0T2  DATA  CARDS  Dl 

6i:  C    THESE  CARDS  ARE  PREVIOUSLY  PREPARED  DATA  CARDS  OF  THE  UNCONVERTED 

62:  C    DATA 

63:  c 

64:  K=NCNL*lCHRS(IREAD)+'_-l 

65:  IF  (K.LE.OUTDIM)  GO  TO  100 

66:  WRITE  (6,230)  K 

67:  CALL  EREXIT 

68:  100    READ  ( 5 , 21 0 , ERR=1 90 , END=200 )  ( lOUT ( I ) , I =L , K) 
69:  MEOF=K-ICHRS( lEOF) 

70:  DO  110  I=NECF,MEOF 

7i:  CALL  MATCH  ( lOUT ,GUTD I M , I CHRS, lEOF , I , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0, I  MAT , NCHRS, 

72:  20) 

73:  IF  (IMAT.EQ.l)  GO  TO  170 

74:  110    CONTINUE 
75:  NE0F=ME0F+1 

76:  MEOR=K-ICHRS{ lEOR) 

77:  DO  120  I=NEOR,MEOR 

78:  CALL  MATCH  ( lOUT ,CUTDI M , ICHRS, I EOP , I , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , I  MAT, NCHRS, 

79:  20) 

80:  IF  (IMAT.EQ.l)  GO  TO  130 

8i:  120    CONTINUE 
82:  GO  TO  14-0 

83:  130    LCHRS=I+ICHRS( lEOR) 
84:  GO  TO  150 

85:  140    NE0R=ME0R+1 
86:  L=K+1 

87:  GO  TO  90 

88:  C    IS  THIS  SCAN  TO  BE  SKIPPED 

89:  150    IF  ( INSKIP.EQ.O)  RETURN 
90:  CALL  SKIP  ( IREC, ISKIP,NSKIP) 

9i:  IF  (NSKIP.EQ.O)  RETURN 

92:  IF  (NSKIP.EQ.-2)  GO  TO  60 

93:  WRITE  (6,240)  IREC 

94:  GO  TO  10 

95:  160    WRITE  (6,220)  LSTAT 

96:  170    L=-2 

97:  LCHRS=ICHRS( lEOF) 

98:  RETURN 

99:  180    WRITE  (6,230)  L 
lOO:  CALL  EREXIT 
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subprogram:      dread  input  data  reading 

lOi:  19  0  CALL  RWERR 

102:  200  CALL  RWEOF 

103:  c 

104:  c 

105:  210  FORMAT  OOAl  ) 

106:  220  FORMAT  (59H0READING  OF  INPUT  FILE  TERMINATED  BY  NTRAN  ERRORt  STATJ 

107:  2S  :  ,15) 

lOa:  230  FORMAT  (22H0INPUT  RECORD  SIZE  OF  ,I5,20H  EXCCEDS  BUFFER  SIZH,/. 

109;  2  23H  CHECK  PARAMETER  MAXCNL) 

no:  240  FORMAT  (9H0RECORD:  .I4.12H       SKIPPED) 

in:  c 

112:  END 
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SUBPRCGR*.  M; 


MATCH 


COMPARE  INPUT  STRING  VERSUS  DAS  SPHCI FICATI CN 


1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
1  1 
12 
13 
1  4 
15 
1  6 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


C 
10 


c 

20 


C 
30 


c 

40 


SUBROUTINE  MATCH  (  I  OUT, CUT DIM,  ICHRS,ISU3,I,  ISIGN, I  CHAN, I  DEC, I  VALUE 
2,IEXP, IDAY, IHP,  IMIN,  I  SEC, I  MA T, NCHR S, NO VFL ) 

INTEGER  GUTDIM 

DIMENSION  IOUT( OUTDI M) , ICHRS (320 ) 

DATA    NPER    /IH,/ 

ICHAN=0 

ISIGN=0 

NOVFL=0 

IDEC=0 

I VALUE=0 

IEXP=0 

IDAY=0 

IHR  =  0 

IMIN=0 

ISEC=0 

IMAT=0 

NCHRS=ICHRS( ISUB)-1 

IS=ISU3+1 

NREP=1CHRS ( lS+2) 

NCHRS1=NCHRS+1 

DC  190  K=l ,NCHRS1 

IK=I+K-1 

NPOSS=ICHRS( IS+3) 

IC=IS+4 

DC  170  I?CSS=1 .NPOSS 

INDEX=IABS( ICHRS( IC) ) 

GO  TO  (10,20,30.40,50,   6  0,70,100,110,120,   130,140,150,160),  INDE 
2X 
CHECK  FCR  ANY  NUMERIC  DIGIT 

IC=IC+1 

CALL  DIGIT  ( ICUT(  IK)  , IDIG,  ISTAT) 

IF  (ISTAT. NE.O)  GO  TO  170 

GC  TO  180 
CHECK  FCR  ANY  ALPHANUMERIC  CHARACTER 

IC=IC+1 

GO  TO  180 
CHECK  FCR  A  CHANNEL  NUMBER  D I G I "!" 

IC=IC+1 

CALL  DIGIT  ( ICUT(IK) , IDIG, ISTAT) 

IF  (ISTAT. NE.O)  GC  TO  170 

I CHAN=I CHAN±1C+I DIG 

GC  ^0  180 
CHECK  FOR  SIGN  POSITIVE  CHARACTER  SPECIFICATION 

IC=I C+2 

IF  ( ICUT ( IK) .NE. ICHRS( IC-1 ) )  GC  TO  170 

ISIGN=1 

GO  TO  180 
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subprogram:   ,»iatch       compare  input  string  versus  das  specification 

51;  c   check  for  s13n  negative  character  sp'hcifi  cation 

52;  50      IC=IC+2 

53;  IF  (lOUT  (IK)  .NE.ICHRS(  IC-n  )  GO  TO  170 

54;  ISIGN=-1 

55:  GO  TO  180 

56:  C    CHECK  FOR  READJNG  VALUE  DIGIT 

57:  60      ICs=IC+l 

58:  CALL  DlfelT  { lOUT ( IK) , ID IG» ISTAT) 

59;  IF  ( ISTAT. NE.O)  GO  TO  170 

60;  IVALUE=IVALUE*10+IDIG 

61 ;  GO  TO  180 

62;  C    CHECK  FOR  A  REAL  VALUE  DIGIT  POSSIBLY  WITH  DECIMAL  POINT 

63:  70      IC=IC+1 

64;  CALL  DIGIT  ( I  CUT ( IK ) , ID IG, ISTAT) 

65:  IF  ( ISTAT. NE.O. AND. IOUT( IK). NE.NPER)  GO  TO  170 

66:  IF  ( lOUT(IK) .EQ.NPER. AND. IDEC. NE.O)  GO  TO  170 

67:  IF  (IDEC.EQ.O)  GO  TO  80 

68:  IDEC=IDEC+1 

69:  80      IF  (lOUTdK)  .NE.NPER)  GO  TO  90 
70:  IDEC=1 

71  :  GO  TO  180 

72:  90      IVALUE=IVALUE*10+IDIG 
73:  GO  TO  180 

74;  C    CHECK  FOR  AN  EXPONENT  DIGIT 

75:  ICO     IC=IC+1 

76:  CALL  DIGIT  ( ICUT ( IK) , ID IG. ISTAT) 

77;  IF  (ISTAT. NE.O)  GO  TO  170 

78;  IEXP=IEXP*10+IDIG 

79;  GC  TO  180 

so:  C    CHECK  FCR  OVERFLOW  OF  READING 

81  :  110     IC=IC+2 

82:  IF  (ICUTdK)  .NE.ICHRS(IC-l)  )  GO  TO  170 

83:  ISIGN=0 

84:  NOVFL=IK 

85:  GO  TO  180 

86:  C    CHECK  FOR  ANY  SINGLE  SPECIAL  CHARACTER 

87;  120     IC=IC+2 

88:  IF  (lOUT(IK) .NE. ICHRS( IC-1 ) )  GO  TO  170 

89:  GO  TO  180 

90:  C    CHECK  FCR  TIME  READING  DAYS  DIGIT 

9i:  130    IC=IC+1 

92:  CALL  DIGIT  ( ICUT ( IK ), ID IG, ISTAT) 

93:  IF  (ISTAT. NE.O)  GO  TO  170 

94;  IDAY=IDAY*10+IDI6 

95;  GO  TO  180 

96;  C    CHECK  FOR  TIME  READING  HOURS  DIGIT 

97:  140    IC=IC+1 

98;  CALL  DIGIT  ( lOUT ( IK ) , ID IG, ISTAT) 

99:  IF  (ISTAT. NE.O)  GO  TO  170 

lOO:  IHR=IHR*10+IDIG 
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subprogram:   match      compare  input  string  versus  das  specification 


101 :  GO  TO  180 

102:  C    CHECK  FOR  TIME  READING  MINUTES  DIGIT 

103:  150    IC=IC+1 

10*^:  CALL  DIGIT  (  lOUT  (  IK  )  ,  ID  I  G,  ISTAT  ) 

105:  IF  (ISTAT. NE.O)  GO  TO  170 

106:  IMIN=IMIN*10+I3IG 

107:  GO  TO  180 

108:  C    CHECK  FOR  TIME  READING  SECONDS  DIGIT 

109:  160    1C=IC+1 

110:  CALL  DIGIT  ( ICUT(IK) ,IDIG. ISTAT) 

111:  IF  (ISTAT. NE.O)  GO  TO  170 

112:  ISEC=ISEC*10+IDIG 

113:  GO  TO  180 

114:  C    NO  MATCH  TRY  OTHER  POSSIBILITIES 

115: 
116: 
117: 
118: 
119: 

120:       C    MATCH  ON  THIS  CHARACTER  —  GO  TO  NEXT  ONE 

121 : 

122:  IF  (NREP.EQ.O)  IS=ICHRS( IS+1 ) 

123:  IF  (NREP.EQ.O)  NREP= ICHRS( IS+2) 

124: 
125: 
126: 
127: 


c 

NO  MATCH  TRY 

170 

CONTINUE 

NCHRS=K-1 

IMAT=0 

NOVFL=0 

RETURN 

c 

MATCH  ON  THIS  CH 

180 

NREP=NREP-1 

IF  (NREP.EQ.O) 

IF  (NREP.EQ.O) 

190 

CONTINUE 

IMAT=1 

RETURN 

END 
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subprogram:   digit       convert  numeric  characters  to  integer  digits 

i:  subroutine  digit  ( i  char , idig . i  stat ) 

2:  c 

4:  C 

5:  INTEGER  CHAR 

6:  DIMENSION  CHAR(IO) 

7:  DATA  (CHAR( I) .1=1 tlO)  /IHO , IHl . 1 H2 . 1H3. 1H4, 1 H5. 1H6, 1H7. 1H8. IHg/ 

8:  DC10I=1.10 

9:  IF  (CHAR(I).EQ. ICHAR)  GO  TO  20 

10:  10      CONTINUE 

11:  C    CHARACTER  IS  NOT  A  NUMERIC 
12:  ISTAT=1 

13:  RETURN 

14:  C    CHARACTER  IS  A  NUMERIC  CHARACTER 

15:  20      ID1G=I-1 
16:  ISTAT=0 

17:  RETURN 

is:  END 
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SUBPROGRA^^:   SKIP  CHECK  FOR  INPUT  RECORD  TO  BE  SKIPPED 

i:  SUBROUTINE  SKIP  ( IREC , I  SKIP, NSKI P) 

2:  C 

4:  c 

5:  DIMENSION  ISKIP(320) 

6:  IF  (ISKIP(l) .EQ.l)  GO  TO  30 

7:  C    FORMAT  IS  OLD  SINGLE  CHANNEL  FORMAT 

8:  NSPEC=ISKIP(2) 

9:  DC  10  I=1,NSPEC 

10:  IF  (ISKIP{1+2).EQ.IREC)  GO  TO  20 

li:  10      CONTINUE 
12:  NSKIP=0 

13:  RETURN 

14:  20      NSKIP=-1 
15:  RETURN 

16:  C    FORMAT  IS  BLOCKED  SKIP,  CHECK  TO  SEE  IF  RECORD  IS  SKIPPED 

17:  30      IF  (IREC.NE.l)  GO  TO  40 
18:  NSPEC=2 

19:  NP0SS=1 

20:  NREC=1 

21:  C    ARE  WE  PAST  THE  LAST  RECORD  FOR  THIS  SPECIFICATION 

22:  40      IF  (IREC.LE. ISKIP(NSPEC+3))  GO  TO  60 
23:  IF  (ISKIP(NSPEC+l).NE.O)  GO  TO  50 

24:  NSK1P=0 

25:  RETURN 

26:  50     NSPEC=ISKIP<NSPEC+1 ) 
27:  NP0SS=1 

28:  NREC=1 

29:  C    ARE  WE  PAST  THE  LAST  POSSIBILITY  FOR  THIS  SPECIFICATION 

30:  60      IF  (NP0SS.LE.ISKIP{NSPEC+2))  GO  TO  70 
31:  NP0SS=1 

32:  NREC=1 

33:  C    ARE  WE  PAST  THE  LAST  RECORD  FOR  THIS  POSSIBILITY 

34:  70      IP0SS=2*(NP0SS-1 )+4+NSPEC 
35:  IF  (NREC.LE.ISKIP<IP0SS+1))  GO  TO  80 

36:  NP0SS=NP0SS+1 

37:  NREC=1 

38:  GO  TO  60 

39:  C    IF  WE  MADE  IT  THIS  FAR,  LET'S  USE  THE  PARAMETER 

40:  80      NREC=NREC+1 

41:  IF  { ISKIP(IPOSS) .NE.-2)  GO  TO  100 

42:  IF  ( IREC.GE.ISKIP(NSPEC+3))  GO  TO  90 

43:  NSKIP=0 

44:  RETURN 

45:  90      NSKIP=-2 
46:  RETURN 

47:  100     NSK1P=ISKIP(IP0SS) 
48:  RETURN 

49:  END 
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subprogram:      redcin  reduced  data  reading 


SUBROUTINE  REDCIN  ( NRCW t NCC_ t REED, KH» INPRT. INPNCH.MAXR, ITIME. INERR 
2. INSKIPtlSKIP.LASREC) 

COMMON  /ERRORS/  ICRD, ISEG 

DIMENSION  REED(NRCWtNCOL)tKH(NCOL) .MAXR( NCOL) . R( 8 ) .IEXP(8) , 
2  1SK1P{320) 

1CSKIP=0 

NCHAN=0 
READ  CHANNEL  NUMBER  AND  NUMBER  OF  READINGS 

IF  (ISEG. EQ. 2. OR. ISEG. EQ. 3)  ICRD=60 

IF  <ISEG.EQ.4)  ICRD=30 

IF  (ISEG.EQ.5)  ICR0=32 

READ  (5.I90.ERR  =  120.ENO=130)  NRE AD . I  CHAN , lEND 

IF  ( IEND.EQ.999)  GC  TO  110 
LOCATE  COLUMN  INSTRUMENT  IS  "STORED  IN  (IF  ANY) 

DO  20  J=1.NC0L 

IF  ( ICHAN.EQ.KH( J) )  GO  TO  30 

CONTINUE 
THIS  CHANNEL  IS  NOT  NEEDED.  SKIP  OVER  THE  READINGS 

NCARDS= ( NREAD+7 ) /8 

READ  (5.140.ERR=120.END=130)  ( IN , I =1 , NCARDS) 

ICSKIP=ICSK1P+1 

IF  (INPRT.EQ.O)  GO  TO  10 

IF  (IPRT.EQ. INPRT)  GC  TO  10 

WRITE  (6.150)  ICHAN 

IPRT=IPRT+1 

GC    TO     10 
READ    IN    THIS    CHANNEL'S    READINGS    INTO    ARRAY    REED 

IREC=0 

IROW=0 

READ    (5.210tERR=120.ENO=130)     ( R( I ) . lEXP ( I ) « I =1 . 8) 

DC    80    1=1.8 

IREC=IREC+1 

IF     ( INSKIP.EQ.O)     GC    TO    50 

CALL  SKIP  (IREC, ISKIP.NSKIP) 

IF  (NSKIP.EQ.-l )  GO  TO  70 

IF  <NSKIP.EQ.-2)  GO  TO  70 

CONTINUE 

IF  (IROW.LT.NROW)  GO  TO  60 

WRITE  (6,200)  ICHAN 

CALL  EREXIT 

STOP 

IR0W=1RCW+1 

REEDdROW,  J)=R(  I  ) +1  0  .  **1  EXP(  I  ) 

IF  (  IREC.GE.NREAD)  GO  TC  90 

CONTINUE 

GO  TO  40 

MAXR( J)=IRCW 


i: 

2: 

3: 

C 

4: 

C 

5: 

c 

6: 

7: 

a: 

9: 

lo: 

ii: 

C 

12; 

13: 

14: 

is: 

10 

16: 

17: 

C 

18: 

19: 

20: 

20 

2i: 

C 

22: 

23: 

24: 

25: 

26: 

27: 

28: 

29: 

30 : 

C 

3i: 

30 

32: 

33: 

40 

34: 

35: 

36: 

37: 

38: 

39: 

40 : 

SO 

41 : 

42: 

43: 

44: 

45: 

60 

46: 

47: 

70 

48: 

80 

49: 

so: 

90 
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subprcgram:   redcin      reduced  data  reading 


print  instruments  readings  (if  print  flags  are  cn) 
if  (inprt.eq.o)  go  to  100 
if  ( iprt.eq. inprt)  go  to  100 
iprt=iprt+1 
nrsk:ip=nread-irow 

WRITE  (6tl70)  ICHAN  .NREADt  IR0W.NRSKIP,.1AXR(  J  ) 
WRITE  (6.180)  (REED(L. J) .L=l ,IROW) 

IPRT=IPRT+1 
NCHAN=NCHAN+1 
GO  TO  1  0 
END  OF  READINGS  SET,  RETURN  FROM  WHENCE  WE  CAME 
ICHAN=NCHAN+ICSKIP 

WRITE  (6,160)  ICHAN,NCHAN, ICSKIP 
RETURN 
CALL  RWERR 
CALL  RWEOF 


FORMAT  (Al) 

FORMAT  ( 10HOCHANN5L :   , I  6 . 1  OH    SKIPPED) 

F0RV1AT  (56H0READING  OF  DATA  FROM  SPEED2  REDUCED  DATA        COMPLETE 
2D,/,22H  TOTAL  CHANNELS  READ:  ,  I *, 3X,6HUSED:   , I  4 , 3X ,9HSKI PPEO :  . 
3  14) 

FORMAT  (  ICHCCHANNEL:   , I  6, 3X, 9HREC0 RDS :  , I  4, 3 X  ,  6HUSED !  ,I4,3X, 
2  9HS<IPPED:  , 14 ,3X,eHMAXR:  ,14) 

FORMAT  (1X,10E12.5) 

FORMAT  (  le , I6,65X,I3 ) 

FORMAT  (42H0NUMBER  OF  READINGS  FOR  INSTRUMENT  NUMBER  ,13. 
2  57H  EXCEEDS  STORAGE  LIMITS     CHECK  PARAMETERS  NRCW  AND  NCOL) 

FORMAT  (8(F7.0,I3)) 

END 


51 : 

c 

52: 

53: 

54: 

55: 

56: 

57: 

58: 

59: 

100 

60: 

61 : 

c 

62: 

no 

63: 

64: 

65: 

120 

66: 

130 

67: 

C 

68: 

c 

69: 

140 

70: 

150 

71 : 

160 

72: 

73: 

74: 

170 

75: 

76: 

180 

77: 

190 

78: 

200 

79: 

80: 

210 

81 : 

c 

82: 
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subprogram:   print       reduced  data  printing 

i:  subroutine  print  ( nrow, ncol . reed t kh, itypetname . it ime. maxr , maxc . 

2:  2  TITLE) 

3:  C 

4:  c     ♦*****♦♦♦*♦*♦♦♦*♦♦*****♦*♦***♦#**♦***♦**#♦**)([***♦**♦*********+**** 

5:  c 

6:  DIMENSION  REED(NROW«NCOL).KH{NCCL  )  .NAME<NCOL  t6)  .MAXR(NCCL)  . 

7:  2  ITYPE(NCCL) tIBUF(r20) . JBUF( 120) ,TITLE(120) 

a:  data"  ibl  /ih  /^ 

9:  KHL=1 

10:  10      KHH=KHL+9 
11  :  KHH=MINO<KHHtMAXC) 

la:  IL=0 

13J  DO  60  U=ltNROW 

14:  1P=0 

is:  DO  20  I=ltl20 

16:  IBUF(I)=IBL 

17:  JBUF(I)=IBL 

18:  20      CONTINUE 

19:  ENCODE  (70,JBUF)  (REED  (  L  t  I  )  .  I=KH!.  1  KHH) 

20:  DECODE  (BOtJBUF)  ( I BUF( I ) , 1= 1 , 1 20 ) 

21:  DC  50  I=KHLtKHH 

22:  IF  (L.GT.MAXRd  )  )  GO  TO  30 

23:  IP=1 

24:  GO  TO  50 

25:  30      IWL=(I-KHL)*12+1 
26:  IWH=1WL+11 

27:  DO  40  J=lWLt IWH 

28:  40      IBUF(J)=IBL 

29:  50      CONTINUE 

30:  IF  (IP.EQ.O)  GO  TO  60 

3i:  1L=IL+1 

32:  IF  (M0D(ILt40).EQ.l )  WRITE  (6.140)  (T ITLE ( I  )  .  1  =  1 . 1 20 ) 

33:  IF  (MOD(IL,40).EQ.l )  WRITE  (6,100)  ( ( NAME( I .  1 1 ) . I  1  =  1 , 6 ) , I =KHL. KHH) 

34:  IF  (M0D(IL.40).EQ.l  )  WRITE  (6,110)   ( IBL . KH( 1  )  , I =KHL , KHH ) 

35;  IF  (M0D( IL,10).EQ.l )  WRITE  (6,120) 

36:  IF  (ITIME.NE.O)  WRITE  (6.130)  REED (L . IT  I  ME ) . ( I BUF ( I ) . I =1 . 1 20 ) 

37:  IF  (ITIME.EQ.O)  WRITE  (6,90)  ( IBUF ( I ) , I = 1 , 1 20) 

38:  60      CONTINUE 
39:  KHL=KHL+10 

40:  IF  (KHL.LE.MAXC)  GO  TC  10 

41 :  RETURN 

42:  C 

43:  C 

44:  70      FORMAT  (1 0 ( 1 X  .Gl 0  .4 .  IX)  ) 

45:  80      FORMAT  (120A1) 

46:  90      FORMAT  ( IX ,T 1 2. 1 20A I ) 

47:  100    FORMAT  (1H0.T12.10(4X,6A1.2X) ) 

48;  110    FORMAT  ( 1 1 X, 1 0( Al ,2X . 1H( .  16, IH ) . 1 X ) ) 

49:  120    FORMAT  (IH  ) 

so:  130    FORMAT  (  IX ,G10 .4, Tl 2, 120A1 ) 
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subprogram:   print      reduced  data  printing 


si:       140    FCRMAT  (1H1,120A1) 

52:     c 

53:  END 
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subprogram:   punch  reduced  data  punching 

i:  subroutine  punch  (  nrow  t  ncol.  reed.  khtna-^ie  t  niaxr.  maxct  ntest  ,  npnch  » 

2:  C 

3:  C           ♦*!(.********♦*♦**♦***********♦*******♦*♦♦**♦♦♦♦*♦♦*****♦*♦♦*♦*♦♦*♦* 

4:  c 

5:  dimension  REED(NROW.NCOL) .KH(NCCL) .NAME(NCCL.6) .MAXR{NCCL) . 

6:  2  IBUF(80), IZERD(IO) . ICHR(17) 

7:  DATA  < IZERC(I). 1=1. 10). (ICHR(I), 1=1,17) , IBL  /IH*. IH, . 5*1H0 . 1 H+. 

8:  2  2*1H0.1H0.1H1.1H2,1H3. 1H4,1H5.1H6. 1H7.  1H8. 1H9. 1H-, IH  .1H+,1H..1H- 

9:  3.1H  . IH  ,1H  / 

10:  DO  80  I=1,MAXC 

11  :  KHK  =  MOD(KH(I) ,  1  000 ) +  1 00 0*NTEST 

12:  WRITE  (NPNCH,90)  MAXR( I ) . KHN . ( NAME ( I , J ) , J=l . 6) 

13;  MAXRL=1 

14:  10      MAXRH=MAXRL+7 

15:  MAXRH=MINO(MAXRH,MAXR( I ) ) 

16:  DO  20  J=1.80 

17:  IBUF(J)=IBt 

18:  20      CONTINUE 

19:  DC  70  L=MAXRL.MAXRH 

20:  IWL=(L-MAXRL)*10+1 

21:  IF  (REED(L.I) .EQ.0.0)  GO  TO  30 

22:  1EXP=INT(ALOG10( ABS(REED(L. !))))+! 

23;  IF  (ABS(REED(L. 1  )).LT.1.C)  IEXP=IEXP-1 

24:  IVAL=INT(ABS(100000.*REED(L. I ) /I 0.**IEXP ) +0 .5 ) 

25:  IREED=1C00*IVAL+ABS( lEXP) 

26:  IBUF< IWL+1)=ICHR{14) 

27:  IC=ISIGN(1 ,IEXP) 

28:  IBUF( IWL+7)=ICHR( 12+IC) 

29:  IC  =  1FIX(SIGN(1. .REED(L,  I) ) ) 

30:  IBUF(1WL)=ICHR( 16+IC) 

31:  30      DO  60  J=1.10 

32:  IF  (REED(L,I).EQ.O.O)  GO  TO  50 

33:  IF  ( J.GT.8.0R. J.EQ.3)  GO  TO  40 

34:  IC=MOD( IREED, 10) 

35:  K=IWL+10-J 

36:  1BUF(K)=ICHR(IC+1) 

37:  40      IREED=IREED/10 

38:  GC  TO  60 

39:  50      K=IWL+J-1 

40:  IBUF(K)=IZERO(J) 

41 :  60      CONTINUE 

42:  70     CONTINUE 

43:  WRITE  (NPNCH.IOO)  ( I BUF ( J ) . J=l . 80 ) 

44:  MAXRL=MAXRL+8 

45:  IF  (MAXRL.LE.MAXRd ) )  GO  TO  10 

46:  80      CONTINUE 

47:  WRITE  (NPNCH.llO) 

48:  END  FILE  NPNCH 

49:  REWIND  NPNCH 

50:  RETURN 
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subprogram:      punch  reduced   data  punching 


FORMAT  (216t6Al) 

FORMAT  (80A1 ) 

FORMAT  (T78.3H999) 

END 


5i: 

c 

52: 

c 

53: 

90 

54: 

100 

5S: 

110 

56: 

c 

57: 
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subprogram:   ccnv  data  conversion 

i:  subroutine  cgnv  ( nrow, ncol, reed. kh , itype i ct add, nccrr , maxr, maxc ) 

2:  C 

3:  c      #*****#*********************************************♦************* 

4:  c 

5:  DIMENSION  REED ( NROW, NCCL).KH( NCOL) . ITYPE (NCOL) , C( NCOL ), ADD ( NCOL) , 

6:  2  MAXR(NCOL) 

7:  DO  20  1=1, MAXC 

8:  K=ITYPE{I) 

9:  IF  (K.EQ.O)  GO  TO  20 

10:  IF  (C(K).EQ.O.)  GO  TO  20 

11:  MAXROW=MAXR( I ) 

12:  DO  10  L=1,MAXR0W 

13:  10     REED(L, I )=REED(L, I )*C(K)+ADD(K) 

14:  20     CONTINUE 

15:  IF  (NCORR.EQ.O)  GO  TO  30 

16:  CALL  CDRR  (  NROW  ,  NCCL  ",  REED,  KH,  MAXC  ) 

17:  30      CONTINUE 

18:  RETURN 

19:  END 
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subprogram:  corr       read  in  corrections  to  data 

i:  subroutine  ccrr  ( nrowtncou , reed tkh ,maxc ) 

2:  c 

3:  c     ♦*♦«***♦*♦*♦*♦♦**♦****♦**♦**♦**♦*♦♦*♦♦**♦*♦*♦♦♦♦♦*♦♦♦♦♦♦♦*♦*♦♦♦♦♦* 

4:  c 

5:  COMMON  /ERRORS/  ICRD.ISEG 

6:  DIMENSION  REED( NROW , NCOL ) t KH( NCOL ) 

7:  WRITE  (6,90) 

e:  10      ICRD=71 

9:  C 

10:  C    PL0T2  DATA  CARD  GI  :      IRL .  IRH , I CL . I CH 

11:  C    IRL:      low  row  index  for  corrections  to  be  READ  IN 

12:  c   irh:    high  row  index  for  corrections  to  be  read  in 

13:  c   icl:    low  column  (or  instrument)  index  for  corrections 

14:  C    ICH:      high  column  (CR  INSTRUMENT)  INDEX  FOR  CORRECTIONS 

15:  c 

16:  read  (5,eO.ERR=60iEND=70)  IRL . IRH . I CL , I CH 

17:  WRITE  (6.80)  IRL  ,  IRH , ICL , ICH 

16:  IF  (IRL.LE.O)  RETURN 

19:  IF  (IRH. LT. IRL)  GO  TO  50 

20:  IF  (ICH.LE.O)  GO  TO  20 

21:  IF  (IRH. EQ. IRL)  GO  TO  20 

22:  IF  (ICH. NE. ICL)  GO  TO  50 

23:  20      IF  (ICL.GT.O)  GO  TO  40 

24:  DO  30  I=1.MAXC 

25:  IF  (KH( 1 )+ICL.EQ.O)  ICL=I 

26:  IF  (KH( I)+ICH.EQ.O)   ICH=I 

27:  30     CONTINUE 

28:  40      IF  (  ICL. LE.O. OR. ICH.LE.O)  GO  TO  50 

29:  IF  (ICH. LT, ICL)  GO  TO  50 

30:  ICRD=72 

31  :  C 

32:  C    PL0T2  DATA  CARD(S)  G2 :      REED 

33:  C    reed:     CORRECTIONS  TO  THE  MATRIX 

34:  C 

35:  IF  (IRL. EQ. IRH)  READ  ( 5 , 1 1 0 , ERR  =  60  ,END  =  70 )   ( REED( IRL , I ) , 1  =  ICL, I CH) 

36:  IF  (ICL, EQ. ICH)  READ  ( 5 , 1 1 0 , ERR=60 ,END=70)  ( REED( I , ICL ) . I  =  IRL . I RH) 

37:  IF  (IRL. EQ. IRH)  WRITE  ( 5, 1 0 0 ,ERR=60 ,END=70)   ( REED( IRL, I ) , I =ICL. I CH 

38:  2) 

39:  IF  (ICL. EC. ICH)  WRITE  ( 5 , 1 00, ERR=60 ,END=70 )   (REED ( I , ICL) , 1 =IRL , I RH 

40:  2) 

41 :  GO  TO  10 

42:  50      WRITE  (6,120) 

43:  WRITE  (6,80)   IRL,  IRH, ICL,  ICH 

44:  60      CALL  RWERR 

45:  70      CALL  RWEOF 

46:  C 

47:  C 

48:  80     FORMAT  (1015) 

49:  90     FORMAT  (54H1  CORRECTION  TO  DATA  MATRIX  ADDED  AT  TIME  OF  EXECUTION/ 

50:  2) 
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subprogram:   ccrr        read  in  correcticns  to  data 

5i:       100    FORMAT  <8F15.6) 

52:       110    FCRMAT  (8F10.0) 

53:       120    FORMAT  (48H0*****  ERROR  CN  FOLLOWING  CORRECTION  CARD  *****  > 

54:      c 

55:  END 
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SUBPRCGRA'vl:    FIND  FIND  LOCATION  CF  AN  INSTRUMENTS  READINGS 

i:  SUBROUTINE  FIND  { I , J , KH , NCCL ) 

2:  c 

3:  C         *±  *  *±*  **********************************  ********#***#*»**3)[#*:***:^*:^ 

4:  C 

5:  DIMENSION  KH(NCOL) 

e:  DC  10  K=1,NC0L 

7:  IF  (KH(K).EQ.I)  GO  TO  20 

e:  10      CONTINUE 

S:  WRI-^E  (6,30)  I 

10:  RETURN 

11:  20      J=K 
12:  RETURN 

13:  c 

14:  c 

15:  30     FORMAT  ( 62H0  ERROR  IN  SUBROUTINE  FIND,  NO  REFERENCE  TO  INSTRUMENT 
16:  2NUMBER  ,I4.,13H  CAN  BE  FOUND) 

17:  c 

18:  END 


A-60 


subprogram:   draw       printer  plot  generation 

i:  subroutine  draw  ( jm, i m, x, y. xo,xm . yo.ymt i  buff , jbuff, i  head tt i tlh , i pn 

2:         2.nr0w,pltdim) 

3:  C 

4:  c     ****************************************************************** 

5:  c 

6:  INTEGER  PLTDIM 

7:  DIMENSION  X(NROW.PLTDIM) . Y( NROW. PLTDI M) , JM( PLTDIM) ,P(1C1  )tYSC(6). 

8:  2  XSCdl  )  ,ISYM<6)  ,  IPN(PLTDIM,  6  )  ,  IHEAD(80)  ,  IBUFF(  40)  ,  JBUFF  (  40  )  . 

9:  3  TITLE (120) 

10:  INTEGER  RMl.R.CtPiDASH, PLUS. BLANK 

11:  DATA  BLANK, DASH. PLUS. (I SYM( I ), 1=1 .6)  /IH  , 1H-, 1H+. IH* . 1 HX, IHO . 1H+. 

12:  21H-.IH./ 

13:  WRITE  (6,250)  (T ITLE( I ) . 1=1 , 120) , ( IHEAD ( I ) , I =1 , 80 ) 

14:  WRITE  (6.280) 

15:  DYM=YM-YO 

16:  DXM=XM-X0 

17:  YSC(1)=YM 

18:  XSC(1)=X0 

19:  DC  10  L=2,6 

20:  10      YSC(L)=YSC(L-1 )-DYM/5. 
21:  DC  20  L=2.11 

22:  20      XSC(L)=XSC(L-1 )+DXM/10. 
23:  DO  30  J=1,IM 

24:  IM1=JM(J)-1 

25:  DO  30  1  =  1. IMl 

26:  iPl=l+l 

27:  I^1M  =  JM(J) 

28:  DO  30  II=IP1. IMM 

29:  IF  (Y(  II,  J)  .LT.Yd.J))  GO  TO  30 

30:  TEMP=Y(I,J) 

3i:  Yd,  J)=Y(II,  J) 

32;  Y(II.J)=TEMP 

33:  TEMP=Xd,J) 

34:  Xd  .  J)=Xdl.  J) 

35:  X(II.J)=TEMP 

36:  30      CONTINUE 

37:  R=0 

38:  L=0 

39:  40      R=R+1 

40:  IF  (R.LE.6,0R.R.GE.47)  GO  TO  50 

41:  ICHAR=IBUFF(R-6) 

42:  GO  TO  60 

43:  50      ICHAR=BLANK 

44:  60      CONTINUE 

45:  RM1=R-1 

46:  ARl=(RMl-.5)/50. 

47:  AR2=(RMl+.5)/50. 

48:  DO  70  C=1.101 

49:  70     P(C)=BLANK 

50:  J  =  I'< 
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SUBPROGRA^l:   ORAW 


PRINTER  PLCT  GENERATICN 


51 

52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 


80 
90 

100 


11  0 
120 
130 

140 


150 
160 


170 


180 


190 


200 


C 

c 

210 
220 
230 
240 

250 
260 
270 
280 
C 


1  = 
1  = 
IF 
IF 
IF 
C= 
IF 
K= 
P( 
GC 
J  = 
IF 
K  = 
IF 
IF 
IF 

2-6 
IF 

2LU 
GC 
IF 
IF 
IF 

2-6 
IF 

2AS 
GC 
L  = 
IF 
IF 

2,  ( 
IF 

2.1 
GC 
IF 
WR 
WR 
WR 
RE 


0 

I  +  l 
(I-JH 
(Yd, 
(Y(  I  , 

100.0* 
(C.GT 

M00( J, 

C)=ISY 
TO  90 

J-1 
(J  )  1 

MOD( R- 
(MOD( 
(R.LE 
(R-6. 

,  I)  .1  = 

(R-e. 
s 

TO  20 
(MOD( 
(R.LE 
(  R-6. 
.  I  )  ,1  = 

( R-e. 

H 
TO  20 

U  +  1 
(R.!_H 
(R-6. 

IPN(  R-i 
(R-6. 

01). DA 
TO  2C 
(R.LT 

ITE  (6 

ITE  (6 

ITE  (6 

TJRN 


( J) )  100.  100.  11 0 

J)  .GE.Ysl-ARl*DYM)  GC  TO  90 

J) .LT.YM-AR2*DYM)  GC  TO  110 

((X( I . J )-X0 )/DXM)+l . 5 

.  101 .CR.C.LT.  1)  GC  TO  90 

6)+l 

M(K) 


20.120. 30 

e.6)+i 

R'41.5))  130,150.130 

.6)  GC  TO  140 

LE.IM)  WRITE  (6.260)  I  CHAR . PLUS,  (  P(  I  )  ,  1  =  1 , 1 01 ) , PLUS,  (I  PN(  R 

1,6)  ,ISYM(K) 

GT.IM.CR.R.LH.6)  WRITE  (6,210)  I  CHAR , PLUS,  ( P( I ) , I  =  1  ,  1  0  1)  ,  p 


RM1,10))  160,180,160 

.6)  GC  TO  170 

LE.IM)  WRITE  (6.260)   I CH AR . DASH .  { P ( I  ) , I  =  1 , 1 0 1  )  . D ASH .  ( I PN ( R 

1.6) , ISYM(K ) 

GT.IM.0R.R.LE.6 )  WRITE  (6.210)  I  CHAR  ,  DASH .  ( P ( I ) .  I  =  1  . 1 0 1  ) . D 


.6)  GC  TO  190 

LE.IM)  WRITE  (6.270)   ICHAR . YSC ( _ ) , D ASH, ( P (  I )  , I =1  ,  1  0  1  )  , D ASH 

6,  I)  .  1=1  .6) .  ISYM(K) 

GT.IM.0R.R.LE.6)  WRITE  (6,220)  I  CHAR , YSC (L ) . DASH. ( P ( I ) , 1  =  1 

SH 

0 

.51)  GO  TO  4  0 

.280) 

.230)  XSC 

.240)  ( J3UFF( I ) . 1=1 .40) 


FCfiMAT  ( IH  . Al. 14X. 103A1 ) 

FCRMAT  (IH  . Al .F13.2. IX. 103A1 ) 

FCRMAT  (9X.11F10.2) 

FCRMAT  (lH0.4eX.4CAl) 

FCRMAT  ( IHl . 120A1./.26X. 80AI ) 

FCRMAT  (IH  , Al . 14X. 103A1 .3X.6A1 ,2X. Al ) 

FCRMAT  (IH  , Al . F13. 2. IX. 1 03A1 ,3X,6A1 ,2X, Al) 

FCRMAT  (IH  .iex.l0(10H+ ),1H+) 
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subprogram:   draw       printer  plot  generation 
loi:  END 
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subprogram:   text  put  TExt  CNTO  CALCOMP  PLGTS 

i:  SUBROUTINE  TEXT  ( XPOS, YPCS , HEI GHT , ICHARS , ANGLE, NCHRS) 

2:  C 

3:  c     *♦********♦***♦********************♦♦*♦♦**♦*♦***♦**♦**+♦*♦**♦♦♦*** 

4:  c 

5:  DIMENSION  ICHARS(NCHRS) 

6:  DC  10  1=1, NCHRS 

7:  XTPCS=( I-l )*HEIGHT*COS( ANGLE*0.01745329)+XPCS 

8:  YTP0S=(I-1  )  *HEIGHT*S  IN  (ANGLE*0.  01  745329)  -fYPCS 

9:  CALL     SYMBOL     ( XTPOS, YTPO S , HE  I GHT , I CHARS(  I ) . ANGLE , 1 ) 

10:  10  CONTINUE 

11:  RETURN 

12:  END 
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ubprogram:   srror      read  and  write  error 

i:  SUBROUTINE  RWERR 

2:  c 

4:  c 

5:  COMMON  /ERRORS/  ICRD.ISEG 

6:  DIMENSION  IN < 80 ) .NSEG ( 5, 6 ) , NPART ( 9 ) 

7:  DATA  ( (NSEG( I, J) .J=l t6) . 1=1. 5)  / 1 HS. IHP , IHE , IHE . 1 HD , 1 H2 , IHP, 1 HL. 

8:  2  IHC, IHT. IHl . IH  . IHP , 1 HL . 1  HO. IHT .  1 H2» 1 H  . 1  HP , 1 HL , 1  HO.  IHT . 1 H3 . 1 H  . 

9:  3  IHP. IHL. IHO. IHT. 1H4. IH  / 

10:  DATA  (NPART( I ) .1=1 .9)  / 1  HA. IHB. IHC . 1 HD. 1  HE . 1 HF. 1 HG, 1 HH. 1  HI/ 

11:  IPART=ICRD/10 

12:  ICRD=ICRD-IPART*10 

13:  IF  (ICRD.EQ.O)  WRITE  (6,20)  ( NSEG ( I SEG. J ) . J= 1 .6 ) , NPART ( I  PART ) 

14:  IF  (ICRD.NE.O)  WRITE  (6.30)  ( NSEG ( I SEG. J ) . J= 1 .6 ) . NPART( I  PART )  , I  CRD 

is:  READ  (5.40.ERR=10.END=10)  ( IN( I ) . I =1 . 80 ) 

16:  WRITE  (6,50)  ( I N ( I ) , 1=1 , 80 ) 

17:  10     CALL  EREXIT 
18:  STOP 

19:  c 

20:  c      ********************** 

21 :  c 

22:  ENTRY  RWEOF 

23:  c 

24:  c      ********************** 


25:  c 

26:  1PART=ICRD/10 

27:  ICRD=ICRD-IPART*10 

28:  IF  (ICRD.EQ.O)  WRITE  (6.60)  ( NSEG ( I SEG. J ) . J= 1 .6 ) . NPART ( I  PART ) 

29:  IF  (ICRD.NE.O)  WRITE  (6.70)  ( NSEG ( I SEG. J ) . J= 1 , 6 ) , NPART ( I  PART ) , I  CRD 

30:  CALL  EREXIT 

31:  STOP 

32:  C 

33:  C 

34:  20     FORMAT  (17H0FORMAT  ERROR  ON  .6A1,17H   DATA  CARD  PART  .Al, 

35:  2  31H     CHECK  FORMAT  SPECIFICATIONS) 

36:  30     FORMAT  ( 17H0F0RMAT  ERROR  ON  ,6A1.12H   DATA  CARD  ,A1,I1, 

37:  2  31H     CHECK  FOR^IAT  SPECIFICATIONS) 

38:  40     FORMAT  (80A1) 

39:  50     FORMAT  (45H0THE  FIRST  CARD  NOT  READ  DUPING  EXECUTION  WAS . / . 1 X . 80A1 

40:  2./.38H  PRECEEDING  DATA  CARDS  MAY  BE  IN  ERROR) 

4i:  60     FORMAT  (28H0END  OF  FILE  ENCOUNTERED  ON  ,6A1.17H   DATA  CARD  PART  , 

42:  2  A1.31H     CHECK  FORMAT  SPECIFICATIONS,/. 

43:  3  38H  PRECEEDING  DATA  CARDS  MAY  BE  IN  ERROR) 

44:  70     FORMAT  (28H0END  OF  FILE  ENCOUNTERED  ON  ,6A,1,12H   DATA  CARD  ,A1.I1. 

45:  2  31H     CHECK  FORMAT  SPECIFICATIONS./. 

46:  3  38H  PRECEEDING  DATA  CARDS  MAY  BE  IN  ERROR) 

47:  C 

48:  END 
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subprogram:   byte 


UNPACK  CHARACTERS  PACKED  SIX  PER  WORD 


i: 
2: 
3: 

4: 

5: 
6: 
7: 

s: 
9: 

10: 
11 : 
12: 
13: 

14: 
is: 
16: 
17: 
is: 
19: 
20: 
21: 
22: 
23: 
24: 
25: 


BYTE  :S  A  SUBROUTINE  TC  OBTAIN  A  SINGLE  6  BIT  BY^^E  LEFT  JUSTIFIED 
SPACE  FILLED  FROM  A  WORD  PACKED  6  BYTES  PER  WORD. 
BYTE  IS  CALLED  WITH  THREE  ARGUMENTS: 

CALL  BYTE  (PACKEDWCRD , BYTENUMBER.UNPACKEDCHARACTER) 

AXRS. 


$(  1)  . 

BYTE* 


S(0)  . 

LOAD 


SPACE 


L 

S 

L 

EX 

S.Sl 

J 

+ 

L«S1 

L«S2 

LfS3 

L.S4 

L.S5 

LtS6 

• 

END. 


AO.SPACE. 
A0.*2.X11 
Al  .*1«X11. 
LOAD.Al. 
A0.*2iXH. 
4.X11 . 


A0**0.X11 
AOt*0»Xll 
AO.*Ot Xll 
A0.*C.X11 
AOi*O.Xll 
AO.*OtXll 


BLANK  FILL  FIRST 

BYTE  NUMBER 

GET  THE  CHARACTER 

STORE  IT 

AND  RETURN 

SINGLE  BYTE  LOAD  INSTRUCTION  TABL: 
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subprogram:   erexit 


ERROR  TERMINATION 


t: 
a: 
3: 

4: 
5: 
6: 
7: 

8: 
9: 
10: 
11: 
12: 
13: 
14: 
15: 
16: 
17: 


EREXIT 


S(l). 

EREXIT* 


$(0). 

ERRMSG 
LOGMSG 


IS  A  SUBROUTINE  FOR  ERROR  TERi^^INATlON  OF  THE  EXECUTION  OF  SPHED2 
TO  BE  USED  ONLY  ON  A  UNIVAC  1100  SERIES  COMPUTER.   A  SIMILAR  ROUTINE 
MUST  BE  WRITTEN  FOR  OTHER  MACHINES  TO  PRINT  AN  ERROR  MESSAGE  AND 
BOMB  OUT  EXECUTION. 


AXRS. 

L 

ER 

L«U 

ER 

ER 


AO t( 0777705. ERRMSG) .  PRINT  ERROR  MESSAGE  AND  STOP 

PRINTS. 

AO. LOGMSG.  PUT  ERROR  MESSAGE  CN  TEAR  SHEET 

CSF$. 

ERRS.  AND  BOMB  OUT  PROGRAM  EXECUTION 


•  END  OF  SPEED2      ERROR  EXIT' 

•S)LCG  SPEED2  ERROR  EXIT  —  RESULTS  MAY  BE  INCORRECT  .  •. 

END. 
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subprogram:        map  map    to     create    SPEED2 


i:  LIB    NBS*CALCOM. 

2:  LIB    NBS*JNTRAN. 

3:  SEG    SPEED-2  .     MAIN    PROGRAM 

4:  IN    SPEED2 

5:  SEG    PLCT-1-2*. (SPEED-2)  .     PLOTl ,    PLCT2 

6:  IN    PLOTl ,PL0T2, ERROR 

7:  SEG    PLOT -3-4*, (SPEEO-2)  .    PL0T3 

8:  IN     PLCT3,PL0T4 

9:  END 
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APPENDIX  B 


SAMPLE  RUNSTREAMS  AND  EXAMPLES  OF  THE  USE  OF  SPEED2 


This  appendix  provides  a  number  of  examples  of  runstreams ,  data  cards 
and  FORTRAN  code  used  to  reduce  data  collected  by  data  acquisition  systems 
using  SPEED2 .   Examples  of  the  use  of  PLOTl,  PL0T2,  PLOTS,  and  PL0T4  are 
presented  and  described  in  some  detail.   Several  examples  are  included 
describing  the  use  of  PLOT 2 ,  the  most  complicated  phase  of  SPEED2 . 
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EXAMPLE  1.   DATA  PRINTOUT  AND  ERROR  CHECKING  USING  PLOTl 

As  a  first  step  in  the  reduction  of  data  using  SPEED2,  PLOTl  provides 
the  ability  to  quickly  list  the  data  recorded  by  a  data  acquisition  system, 
check  the  correctness  of  the  data  and,  if  desired,  output  the  data  to 
punched  cards,  mass  storage,  or  magnetic  tape.   This  short  example  illus- 
trates the  use  of  PLOTl. 


Explanation   (numbers  refer  to  lines  within  the  example) ; 

1.  Standard  UNIVAC  1108  EXEC  8  run  initiation  card  specifying 
run  ID  (FIREOl) ,  account  number  (00000-AAAAAA) ,  project  ID 
(PROJECT) ,  priority  (M) ,  and  maximum  run  time  and  page 
estimate. 

2.  Assign  a  temporary  mass  storage  file  called  11. 

3.  Assign  a  magnetic  tape  (FIREOl)  containing  data  recorded  by 
a  data  acquisition  system  to  logical  unit  7.   The  assignment 
options  (MTJI) ,  and  tape  unit  type  (8C)  are  dependent  upon  the 
data  acquisition  system  tape  unit  recording  format   (here,  7 
track,  500  BPI,  odd  parity  BCD) . 

4.  Execute  the  program  SPEED2  contained  in  the  mass  storage  file 
SPEED2*SPEED2. 

5.  SPEED2  data  card  Al  —  specifies  one  data  set  is  to  be  processed, 

6.  SPEED2  data  card  A2  —  specifies  PLOTl  is  to  be  called. 

7.  PLOTl  data  card  Al  --  entries  specify:   Esterline  Angus  PD2064 
magnetic  tape  input  (INTYPE=6) ;  a  printout  of  all  input  data 
records  is  to  be  produced  from  the  data  recorded  on  the  magnetic 
tape  (INPRT=-1);  a  copy  of  the  input  data  is  to  be  output  to 
logical  unit  11  (INPNCH=11) ;  up  to  100  error  messages  are  to 

be  printed  (INERR=100);  and  no  input  data  records  are  to  be 
skipped  —  do  not  read  PLOTl  data  cards  Dl  (INSKIP=0) . 

8-9.       PLOTl  data  cards  Bl  and  B2  —  title  of  the  experiment. 

10.  Copy  the  raw  data  written  into  the  mass  storage  file  called  11 
into  a  permanent  mass  storage  file  called  FRANKLIN.   The  data  is 
identified  by  the  element  name  FIREOl/RAW  within  the  file. 

11.  UNIVAC  1108  EXEC  8  run  termination  card. 
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EXAMPLE   i:  DATA  PRINTOUT  AND  ERROR  CHECKING  USING  PLOTl 

i:  SRUN.M  FIREOl.OOOOO-AAAAAA*P^CJECTt 1*200 

S:  SASG.T  11. 

3:  SASGtMTJI  7o«8C»FIRE01 

4:  fflXQT  SPEED2*SPEED2.SPEE02 

s:         1 

6:  19     0     0 

7:  6    -1    11   100     0 

8:  'FRANKLIN  HEATER  —  FIREPLACE*  FIRE  TEST  01:31178 

9:  test:  FIREOl 

10:  aCOPYtl  11. .FRANKLIN. FIREOl/RAW 

11:  aFIN 
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EXAMPLE  2.   THE  REDUCTION  OF  DATA  USING  PL0T2 

After  the  data  have  been  processed  with  PLOTl,  the  data  must  be  reduced 
and  converted  into  scientific  units  for  analysis.   PL0T2  is  used  for  this 
purpose.   In  the  first  example,  data  recorded  on  magnetic  tape  were  pro- 
cessed by  PLOTl  and  output  to  a  mass  storage  file  for  permanent  storage. 
This  example  illustrates  the  use  of  PL0T2  to  reduce  data  generated  by 
PLOTl  and  produce  printer  plots  of  the  data.   The  data  are  to  be  converted 
with  only  linear  equations.   Hence,  there  is  no  need  to  use  FORTRAN  coding 
to  convert  the  data. 

Explanation   (numbers  refer  to  lines  within  the  example) : 

1.  Standard  UNIVAC  1108  EXEC  8  run  initiation  card. 

2.  Copy  the  mass  storage  file  SPEED2*SPEED2  containing  all  the 
subprograms  of  SPEED2  into  the  temporary  workspace  file  TPF$. 

3-5.       Call  the  FORTRAN  language  processor  to  compile  the  main  program 
SPEED2,  changing  the  size  of  the  data  arrays  to  NROW=240  and 
NCOL=25  to  allow  up  to  24  columns  and  24  0  rows  of  data  (note  that 
one  extra  column  is  needed  by  SPEED2  over  and  above  the  number 
columns  needed  by  the  user) . 

6.  Call  the  @MAP  processor  (the  collector)  to  collect  together 
the  relocatable  elements  of  the  subprograms  of  the  SPEED2 
system  to  produce  an  absolute  element  for  execution. 

7.  Assign  a  temporary  mass  storage  file  called  10. 

8.  Assign  an  existing  mass  storage  file  called  FRANKLIN. 

9.  Execute  the  absolute  element  SPEED2  created  earlier  with  the 
@MAP  processor. 

10-11.     SPEED2  data  cards  Al  and  A2  —  specifies  one  data  set  (NSETS=1) 
is  to  be  processed  by  PL0T2  (IP1=0,  IP2=1,  IP3=0,  IP4=0) . 

12.  PL0T2  data  card  Al  --  entries  specify:   Esterline  Angus  punched 
card  image  format  (INTYPE=7) ;  only  the  first  two  input  data 
records  are  to  printed  (INPRT=2) ;  do  not  output  the  raw  data 

(INPNCH=0) ;  do  not  stop  processing  after  reading  the  input 
data  (INSTOP=0) ;  do  not  print  any  input  error  messages  (INERR=0) ; 
and  do  not  skip  any  input  data  records  —  do  not  read  PL0T2 
data  card  Dl  (INSKIP=0) . 

13.  PL0T2  data  card  A2  --  entries  specify:   a  test  number  of  zero 
(NTEST=0) ;  print  the  transformed  data  matrix  (NPRT=1) ;  output 
the  transformed  data  matrix  to  unit  10  --  in  this  case,  a 
previously  assigned  mass  storage  file  (NPNCH=10) ;  read  PL0T2 
data  cards  part  I  to  generate  printer  plots  (NPL0T=1) ;  and 

do  not  read  PL0T2  data  cards  part  G  to  correct  readings  of 
the  data  matrix  (NCORR=0) . 

14-15.     PL0T2  data  cards  Bl  and  B2  —  title  of  the  experiment. 
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PL0T2  data  cards  B3  —  instrument  definition  cards  for  instruments 
numbered  0-18  and  a  time  channel  numbered  999. 

PL0T2  data  card  B4  signals  the  end  of  the  set  of  instrument  defin- 
ing cards. 

PL0T2  data  cards  B5  specifying  conversion  coefficients  for  instru- 
ment types  1,  2,  and  3. 

PL0T2  data  card  B6  signals  the  end  of  the  set  of  coefficient  cards, 

Element  FIREOl/RAW  in  the  mass  storage  program  file  FRANKLIN 
contains  raw  data  images  in  the  format  of  the  data  acquisition 
system  prepared  by  using  PLOTl  as  in  example  1.   The  @ADD 
control  statement  is  used  to  add  into  the  runstream  at  this  point 
the  entire  contents  of  the  element.   These  are  PL0T2  data 
cards  part  E. 

PL0T2  data  cards  II,  12,  13,  and  14,  the  first  of  several  sets 
of  four  cards  to  generate  printer  plots  from  the  reduced  data. 
Here,  channel  999  is  plotted  as  the  x-axis  versus  channel  1  as 
the  y-axis.   The  axis  limits  are  0  -  5000  for  the  x-axis  and 
0  -  0.25  for  the  y-axis.   The  graph  title  is  INCIDENT  RADIANT 
FLUX  ON  BACK  WALL  SURFACE.   Axis  titles  are  HEAT  FLUX  WATTS  PER 
SQUARE  CM  (y-axis)  and  ELAPSED  TIME  IN  SECONDS  (x-axis) , 

Six  additional  sets  of  four  cards  to  generate  six  separate  ' 
printer  plots. 

A  blank  card  signals  the  end  of  the  plot  generating  cards. 

Copy  the  temporary  mass  storage  file  named  10  containing  the 
reduced  data  output  by  SPEED2  (NPNCH=10)  into  permanent  storage 
in  the  element  named  FIREOl/REDUCED  within  the  mass  storage 
program  file  named  FRANKLIN. 

Standard  UNIVAC  1108  EXEC  8  run  termination  card. 
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EXAMPLE   2: 


THE  REDUCTION  OF  DATA  USING  PL0T2 


1 

2 
3 
4 
5 
6 
7 
8 
9 
IG 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 


SRUN.M  FIREOl.OOOOO-AAAAAA.PROJECT.2.100 
fflCOPY  SPEED2*SPEED2. tTPFS. 
SFOR«W  SPEED2 
-25t25 

PARAMETER  NROW=240.  NC0L=25 
SMAP.N  MAPtSPEE02 
SASG.T  10* 
aASG.A  FRANKLIN. 
aXQT  SPEED2 
1 

0     10     0 
7     2     0     0     9     0 
0     1    10     1     0 

•FRANKLIN    HEATER    FIREPLACE*    FIRE    TEST 

test;    FIREOl 

000103FLUX    HEAT  FLUX  RADICMETER.  REAR  WALL 

000002TC  REF  REFERENCE  THERMOCOUPLE 

000202RW  46   TEMPERATURE 

00630 2RW  107  TEMPERATURE 

009402RW  168  TEMPERATURE 

0e0502RW  229  TEMPERATURE 

000602S.W  46   TEMPERATURE 

60070 2SW  107  TEMPERATURE 

000e02SW  168  TEMPERATURE 

000902SW  229  TEMPERATURE 

001C02HEARTH  TEMPERATURE 

001102RT  LEG  TEMPERATURE 

0012021.T  LEG  TEMPERATURE 

001302R   LEG  TEMPERATURE 

001402R  SIDE  TEMPERATURE 

001S02R  REAR  TEMPERATURE 

C01602C  REAR  TEMPERATURE 

001702L  REAR  TEMPERATURE 

001802L  SIDE  TEMPERATURE 


oi:3i:78 


REAR  WALL.  0*46  M  UP 
REAR  WALL.  1.07  M  UP 
REAR  WALL.  Ie6e  M  UP 
REAR  WALL.  2.29  M  UP 
SIDE  WALL*  Oa46  M  UP 
SIDE  WALL.  1.07  M  UP 
SIDE  WALL.  I068  M  UP 
SIDE  WALL.  2.29  M  UP 
HEARTH  CENTER 
BENEATH  RIGHT  LEG 
BENEATH  LEFT   LEG 
BENEATH  REAR   LEG 
RIGHT  SIDE  OF  FIREPLACE 
FIGHT  REAR  OF  FIREPLACE 
CENTER  REAR  OF  FIREPLACE 
LEFT  REAR  OF  FIREPLACE 
LEFT  SIDE  OF  FIREPLACE 


099901  TIME   ELAPSED  TIME  SINCE  IGNITION 


W/CM2 

OEG  C 

OEG 

DEG 

OEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

OEG 

DEG 

DEG 

DEG 

DEG 

DEG 

SEC 


C  1*0 

C  0.55556 

C  0«2335 


32.C 


SAOO  FRANKLIN. FIREOl/RAW 

PLOT  999      1 

0.0         50C0.      0.0         0.25 

INCIDENT  RADIANT  FLUX  ON  BACK  WALL  SURFACE 

HEAT  FLUX   WATTS  PER  SQUARE  CM 
PLOT  999      2  3  4  5 

0*0         5000*       0*0         100* 
TEMPERATURE  ON  REAR  WALL  BEHIND  FIREPLACE 

TEMPERATURE   DEG  C 
PLOT  999     6  7  8  9 


599 


999 


ELAPSED  TIME  IN  SECONDS 


ELAPSED  TIME  IN  SECONDS 
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EXAMPLE       2: 


THE    REDUCTION    OF     DATA    USING    PL0T2 


5i: 
52: 

53: 
54: 
55: 
56: 
57: 
58: 
59: 
60 : 
61: 
62: 
63: 
64: 
65: 
66: 
67: 
68: 
69: 
70: 
71: 
72: 


0*0         SOCOc       0*0         100. 
TEMPERATURE  ON  SIDE  WALL  RiGHT  OF  FIREPLACE 

TEMPERATURE   DEG  C  ELAPSED  TIME  IN  SECONDS 

PLOT  999  10 

0*0         SOOOo       0*0         100* 
TEMPERATURE  AT  FRONT  EDGE  OF  HEARTH 

TEMPERATURE   DEG  C  ELAPSED  TIME  IN  SECONDS 

PLOT  999     11  12  13 

0*0         SOCOc       0*0         100* 
TEMPERATURE  ON  FLOOR  BENEATH  LEGS  OF  FIREPLACE 

TEMPERATURE   OEG  C  ELAPSED  TIME  IN  SECONDS 

PLOT  999     14  18 

0*0         5000c      0*0         500* 
TEMPERATURE  ON  SIDES  OF  FIREPLACE 

TEMPERATURE   DEG  C  ELAPSED  TIME  IN  SECONDS 

PLOT  999     15  16  17 

0.0         50C0.      0.0         500. 
TEMPERATURE  ON  REAR  SURFACE  OF  FIREPLACE 

TEMPERATURE   DEG  C  ELAPSED  TIME  IN  SECONDS 

SCOPY.I  10. t FRANKLIN. FIREOl /REDUCED 
SPIN 
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EXAMPLE  3.   USING  PLOTS  TO  GENERATE  PEN  PLOTS  FROM  REDUCED  DATA 

For  reports  and  other  presentations  of  data,  the  user  may  desire  better 
quality  graphs  of  the  data  reduced  and  stored  using  PLOTl  and  PL0T2 .   In  this 
example,  PLOTS  is  used  to  generate  a  pen  plot  from  data  reduced  as  shown  in 
example  2 . 

Explanation  (numbers  refer  to  lines  within  the  example) ; 

1.  Standard  UNIVAC  1108  EXEC  8  run  initiation  card. 

2.  Copy  the  mass  storage  file  SPEED2*SPEED2  containing  all  the  sub- 
programs of  SPEED2  into  the  temporary  workspace  file  TPF$. 

3-5.       Call  the  FORTRAN  language  processor  to  compile  the  main  program 
SPEED2,  changing  the  size  of  the  data  arrays  to  NROW=240  and 
NCOL=S. 

6.  Call  the  @MAP  processor  (the  collector)  to  collect  together  the 
relocatable  elements  of  the  subprograms  of  the  SPEED2  system  to 
produce  an  absolute  element  for  execution. 

7.  Assign  an  existing  mass  storage  file  (A-option)  called  FRANKLIN. 

8-9.  Assign  a  magnetic  tape  CAL  to  logical  unit  7  to  be  used  for  the 
output  of  the  CALCOMP  plotting  commands. 

10.       Execute  the  absolute  element  SPEED2  created  earlier  with  the  @MAP 
processor. 

11-12.     SPEED2  data  cards  Al  and  A2  —  specifies  one  data  set  (NSET=1)  is 
to  be  processed  using  PLOTS  (IPl,  IP2,  IP4  equal  zero  and  IPS 
equals  one) . 

IS.        PLOTS  data  card  Al  --  entries  specify:   data  matrix  is  not  to  be 
printed  (NPRT=0);  smooth  the  data  before  plotting  using  a  running 
five  point  linear  average  (NSMTH=5) ;  ignore  all  out  of  bounds 
points  (NOUT=0) ;  place  axes  on  all  four  sides  of  each  graph  pro- 
duced (NAXIS=1) ;  draw  a  line  through  each  data  point  of  all  curves, 
placing  a  special  plotting  symbol  every  10  points  (NPNT=10) ;  and 
do  not  produce  any  legends  on  the  graphs  (NLEG=0) . 

14.        PLOTS  data  card  A2  —  entries  specify  the  size  of  the  graphs 

produced.   The  x-axis  length  is  10.0  scaled  inches  (XSIZE=10 . 0) ; 
the  y-axis  length  is  5.0  scaled  inches  (YSIZE=5 . 0) ;  and  the 
scaling  factor  is  0.8  (SCALE=0.8). 

15-16.     PLOTS  data  cards  Bl  and  B2  —  the  title  of  the  experiment. 

17-18.  PLOTS  data  cards  B3  --  instrument  definition  cards  for  channels 
002  and  999. 

19.  PLOTS  data  card  B4  signals  the  end  of  the  instrument  definition 
cards . 
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20.       Element  FIREOl/REDUCED  in  the  mass  storage  program  file  FRANKLIN 
contains  the  set  of  reduced  data  output  by  PL0T2 .   The  @ADD 
control  statement  is  used  to  add  into  the  runstream  at  this  point 
the  entire  contents  of  the  element.   These  are  PLOTS  data  cards 
part  C. 

21-24.     PL0T3  data  cards  Dl,  D2 ,  D3,  and  D4  describing  the  pen  plot  to  be 
produced.   Channel  999  is  plotted  on  the  x-axis  versus  channel  002 
on  the  y-axis.   The  axis  limits  are  0  -  5000  for  the  x-axis  and 
0  -  100  for  the  y-axis.   The  graph  title  is  FIGURE  4:   SURFACE 
TEMPERATURE  ON  REAR  WALL  BEHIND  FIREPLACE.   Axis  titles  are 
TEMPERATURE   (DEC  C)  and  TIME  SINCE  IGNITION   (SEC)  for  the  y  and 
X  axes  respectively. 

25.  A  blank  card  signals  the  end  of  the  plot  generating  cards. 

26.  Standard  UNIVAC  1108  EXECS  run  termination  card. 
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EXAMPLE   3:       USING  PL0T3  TO  GENERATE  PEN  PLOTS  FROM  REDUCED  DATA 

1:  SRUN«M  FIRE01.00900-AAAAAAtPRCJECT.2ilOO 

2:  fflCOPY  SPEED2*SPEED2« .TPF$. 

3:  SFOR.W  SPEED2 

4:  -25t25 

5:  PARAMETER  NRGW=240«  NC0L=3 

6:  aMAPtN  MAP«SPEED2 

7:  SASG.A    FRANKLIN. 

e:  SASG.TJ    7..8C.CALW 

9:  9MSG.W    REEL    CAL    BELONGS    TO    00000-AAAAAA 

10:  fflXQT    SPEED2 
11:  1 

12:  0  0  10 

13:         0    5    c    1   10    0 

14:  10*0        5*0      OqS 

15:  'FRANKLIN  HEATER  FIREPLACE'  FIRE  TEST 

16:  PLOTS 

17:  0000020324  IN   TEMPERATURE  ON  REAR  WALL  BEHIND  FIREPLACE 

18:  ©0a99903TlME    TIME  IN  SECONDS  SINCE  IGNITION 

19:  S99 

20:  aADD  FRANKLIN. FIREOl/REDUCED 

21:  PLOT  999.002 

22:  0*0  5000c       OeO  lOOe 

23:  04SURFACE  TEMPERATURE  CN  REAR  WALL         BEHIND  FIREPLACE 

24:  TEMPEKATURE   < DEG  C)  TIME  SINCE  IGNITION  (SEC) 

25: 

26:  SFIN 
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EXAMPLE  4.   COMBINING  SEVERAL  SETS  OF  DATA  USING  PL0T4 

If  a  number  of  related  tests  have  been  processed  using  SPEED2 ,  with  the 
reduced  data  stored  on  mass  storage,  magnetic  tape,  punched  cards,  or  the 
like,  the  user  may  wish  to  compare  instruments  from  several  different  tests 
using  PL0T2  or  PLOTS.   This  example  illustrates  the  use  of  PL0T4  to  create 
a  new  combined  set  of  reduced  data  that  may  then  be  further  processed  with 
PL0T2  or  PLOTS. 


Explanation   (numbers  refer  to  lines  within  the  example) ; 

1.  Standard  UNIVAC  1108  EXEC  8  run  initiation  card. 

2.  Copy  the  mass  storage  file  SPEED2*SPEED2  containing  all  the 
subprograms  of  SPEED2  into  the  temporary  workspace  file  TPF$. 

3-5.       Call  the  FORTRAN  language  processor  to  compile  the  main  program 
to  change  the  size  of  the  data  arrays. 

6.  Call  the  @MAP  processor  (the  collector)  to  collect  together 
the  relocatable  elements  of  the  subprograms  of  the  SPEED2 
system  to  produce  an  absolute  element  for  execution. 

7.  Assign  a  temporary  mass  storage  file  called  10. 

8.  Assign  an  existing  mass  storage  file  called  FRANKLIN. 

9.  Execute  the  absolute  element  SPEED2  created  earlier  with  the 
@MAP  processor. 

10-11.     SPEED2  data  cards  Al  and  A2  —  specifies  one  data  set  is  to  be 
processed  using  PL0T4 . 

12.        PL0T4  data  card  Al  --  entries  specify:   do  not  print  the  combined 
data  matrix  (NPRT=0) ;  and  output  the  combined  data  matrix  to  unit 
10  —  in  this  case,  a  previously  assigned  mass  storage  file 
(NPNCH=10) . 

lS-14.     PL0T4  data  cards  Bl  and  B2  —  the  title  of  the  experiment. 

15-102.    PL0T4  data  cards  B3  --  instrument  definition  cards  for  tests 
1-4. 

103.  PL0T4  data  card  B4  signals  the  end  of  the  set  of  instrument  defin- 
ing cards. 

104.  PL0T4  data  card  CI  specifies  that  the  data  which  follows  belongs 
to  test  number  1. 

105.  Element  FIREOl/REDUCED  in  the  mass  storage  program  file  FRANKLIN 
contains  the  set  of  reduced  data  for  test  number- 1  output  by 
PL0T2.   The  @ADD  control  statement  is  used  to  add  into  the  run- 
stream  at  this  point  the  entire  contents  of  the  element.   These 
are  PL0T4  data  cards  C2 . 

106-111.   Three  similar  sets  of  PL0T4  data  cards  part  C  for  tests  2,  3  and  4. 
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112.  PL0T4  data  card  C3  specifying  the  end  of  the  data  sets 

113.  Standard  UNIVAC  110  8  EXECS  run  termination  card. 
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EXAMPLE       4: 


CCMBINiNG    SEVERAL    SETS    OF    DATA    USING    PLDT4 


SRUN*M    FI RE* COOOO-AAAAA. PROJECT t 2. 100 

aCOPY    SPEED2*SPEED2e tTPFS. 

SFORtW    SPEED2 

-25.25 

PARAMETER    NR0W=20C*     NC0L=99 
SMAPtN    MAP.SPEE02 
SASG.T    10. 
SASG.A    FRANKLIN* 
aXQT    SPEE02 

1 

0  0  0  1 

0  10 

•FRANKLIN    HEATER    FIREPLACE*    FIRE    TEST 

ALL    TESTS 

00100103FLUX    HEAT  FLUX  ISAOIOMETER.  REAR  WALL 

00100002TC  REF  REFERENCE  THERMOCOUPLE 


REAR  WALL«  0.46  M  UP 
REAR  WALL.  1*07  M  UP 


REAR  WALL.  1.68  M  UP 
REAR  WALL.  2.29  M  UP 


SIDE  WALL, 
SIDE  WALL. 


0.46  M  UP 
le07  M  UP 


00100 202RW  46   TEMPERATURE 

a0100302RW  107  TEMPERATURE 

00100402RW  168  TEMPERATURE 

00100502RW  229  TEMPERATURE 

00100602SW  46   TEMPERATURE 

03100702Sll(  107  TEMPERATURE 

00100802SW  168  TEMPERATURE 

00100902SW  229  TEMPERATURE 

00101002HEARTH  TEMPERATURE 

00101 102RT  LEG  TEMPERATURE 

00101 202LT  LEG  TEMPERATURE 

00101302R   LEG  TEMPERATURE 

00101402R  SIDE  TEMPERATURE 

00101 S02R  REAR  TEMPERATURE 

00101 602C  REAR  TEMPERATURE 

f0101702L  REAR  TEMPERATURE 

00101802L  SIDE  TEMPERATURE 

09101902FLOOR   TEMPERATURE 

00102002S  STAK  TEMPERATURE  ON  SIDE  WALL  AT  STACK 

00199901  TIME   ELAPSED  TIME  SINCE  IGNITION 

00200 103FLUX    HEAT  FLUX  RADIOMETER.  REAR  WALL 

00200002TC  REF  REFERENCE  THERMOCOUPLE 

00200202RW  46   TEMPERATURE.  REAR  WALL.  0.46  M  UP 

00200302RW  107  TEMPERATURE,  REAR  WALL.  Ie07  M  UP 

09200402RW  168  TEMPERATURE,  REAR  WALL.  1.68  M  UP 

00200502RU  229  TEMPERATURE,  REAR  WALL.  2*29  M  UP 

09200602S.W  46   TEMPERATURE.  SIDE  WALL.  0.46  M  UP 

00200702SW  107  TEMPERATURE.  SIDE  WALL.  1.07  M  UP 

a0200802SW  168  TEMPERATURE.  SIDE  WALL.  1«68  M  UP 

00200902SW  229  TEMPERATURE,  SIDE  WALL.  2.29  M  UP 

00201002HEARTH  TEMPERATURE,  HEARTH  CENTER 

002dll02RT  LEG  TEMPERATURE,  BENEATH  RIGHT  LEG 

00201202LT  LEG  TEMPERATURE,  BENEATH  LEFT 

C3201302R   LEG  TEMPERATURE,  BENEATH  REAR 


SIDE  WALL.  1.68  M  UP 
SIDE  WALL.  2*29  M  UP 
HEARTH  CENTER 
BENEATH  RIGHT  LEG 
BENEATH  LEFT   LEG 
BENEATH  REAR   LEG 
RIGHT  SIDE  OF  FIREPLACE 
RIGHT  REAR  OF  FIREPLACE 
CENTER  REAR  OF  FIREPLACE 
LEFT  REAR  OF  FIREPLACE 
LEFT  SIDE  OF  FIREPLACE 
FLOOR  SURFACE  CENTER 


LEG 
LEG 


W/CM2 

DEG  C 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

SEC 

W/CM2 

DEG  C 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 

DEG 
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EXAMPLE 


CCMBINING  SEVERAL  SETS  OF  DATA  USING  PLCT4 


5i 

52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
7i 
72 
73 
74 
75 
76 
77 
78 
79 
80 
31 
82 
S3 
84 
85 
86 
87 
68 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 


00201402R  SIDE 
00201 502R  REAR 
0020i602C  REAR 
00201702L  REAR 
0J201802L  SIDE 
00201902FLCCR 
00202002S  STAK 
00295901  TIME 
C03001&3FLUX 
00300002TC  REF 
00300202RW  46 
a0300302RM  107 
00300402^W  168 
0030050 2RW  229 
00300602SW  46 
0030070231*  107 
00300802SW  168 
00300902SW  229 
00301002HEARTH 
00301i02RT  LEG 
00301202LT  LEG 
003dl302R   LEG 
C03014S2R  SIDE 
00301502R  REAR 
00301602C  REAR 
00301702L  SEAR 
00301802L  SIDE 
00301 902FLC0R 
0  330 200 2S  STAK 
00399901  TIME 
00400103FLUX 
00400002TC  SEF 
00400202RW  46 
00400302RW  107 
00400402RM  168 
0040050 2RW  229 
CC400602SW  46 
00400702S*  107 
004g0802SW  168 
00400902SW  229 
00401002HEARTH 
00401102RT  LEG 
00401 202LT  LEG 
00401302^   LEG 
0.34014d2R  SIDE 
00401502R  REAR 
00401602C  REAR 
03401702L  SEAR 
C0401802L  SIDE 
00401 902FLCOR 


TEMPERATURE, 
TEMPERATURE, 
TEMPERATURE, 
TEMPERATURE, 
TEMPERATURE. 


RIGHT  SIDE  OF  FIREPLACE 
RIGHT  REAR  OF  FIREPLACE 
CENTER  REAR  OF  FIREPLACE 
LEFT  REAR  CF  FIREPLACE 
LEFT  SIDE  CF  FIREPLACE 
TEMPERATURE,  FLOOR  SURFACE  CENTER 
TEMPERATURE  ON  SIDE  WALL  AT  STACK 
ELAPSED  TIME  SINCE  JGNITICN 
HEAT  FLUX  RADIOMETER,  REAR  WALL 
REFERENCE  THERMOCOUPLE 


TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 
TEMPERATURE 


REAR  WALL, 
REAR  WALL, 
REAR  WALL, 
REAR  WALL, 
SIDE  WALL. 
SIDE  WALL. 
SIDE  WALL. 
SIDE  WALL. 


0*46  M  UP 

1.07  M  UP 

1*68  M  UP 

2.29  M  UP 

0*46  M  UP 

1.07  M  UP 

Ie68  M  UP 

2.29  M  UP 


HEARTH  CENTER 
BENEATH  RIGHT  LEG 
BENEATH  LEFT   LEG 
BENEATH  REAR   LEG 
RIGHT  SIDE  OF  FIREPLACE 
RIGHT  REAR  OF  FIREPLACE 
CENTER  REAR  OF  FIREPLACE 
LEFT  REAR  CF    FIREPLACE 
LEFT  SIDE  CF  FIREPLACE 
FLOOR  SURFACE  CENTER 

TEMPERATURE  ON  SIDE  WALL  AT  STACK 

ELAPSED  TIME  SINCE  JGNITICN 

HEAT  FLUX  RADIOMETER,  REAR  WALL 

REFERENCE  THEF.MOCOUPLE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 

TEMPERATURE 


SEAR 

WALL, 

0.46 

M 

UP 

REAR 

WALL, 

1.07 

M 

UP 

REAR 

WALL. 

1.68 

M 

UP 

REAR 

WALL. 

2.29 

M 

UP 

SIDE 

WALL. 

0.46 

M 

UP 

SIDE 

WALL, 

1.07 

M 

UP 

SIDE 

WALL. 

1.68 

M 

UP 

SIDE 

WALL. 

2,29 

M 

UP 

HEARTH  CENTER 
BENEATH  RIGHT  LEG 
BENEATH  LEFT   LEG 
BENEATH  REAR   LEG 
RIGHT  SIDE  OF  FIREPLACE 
RIGHT  REAR  OF  FIREPLACE 
CENTER  REAR  OF  FIREPLACE 
LEFT  REAR  CF  FIREPLACE 
LEFT  SIDE  CF  FIREPLACE 
FLOOR  SURFACE  CENTER 


DEG 

C 

OEG 

C 

OEG 

c 

OEG 

c 

OEG 

c 

OEG 

c 

DEG 

c 

SEC 

W/CM2 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

OEG 

c 

DEG 

c 

OEG 

c 

OEG 

c 

DEG 

c 

OEG 

c 

OEG 

c 

OEG 

c 

DEG 

c 

OEG 

c 

OEG 

c 

DEG 

c 

OEG 

c 

DEG 

c 

DEG 

c 

OEG 

c 

SEC 

W/CM2 

OEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

OEG 

c 

OEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

OEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 

DEG 

c 
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EXAMPLE   4:       COMBINJNG  SEVERAL  SETS  OF  DATA  USING  PL0T4 

101 :  00402002S  STAK  TEMPERATURE  ON  SIDE  WALL  AT  STACK       OEG  C 

102:  00499901  TIME   ELAPSED  TIME  SINCE  IGNITION  SEC 

103:  999 

104:  TEST   001 

105:  SAOO  FRANKLINaFIREOl /REDUCED 

106:  TEST   002 

107:  SAOO    FRANKLIN»FIRE02/REDUCED 

lOe:  TEST      003 

109:  aAOO    IFRANKLIN«FIRE03/REOUCED 

110:  TEST      004 

ill:  SAOD    FRANKLIN«FIRE04/REDUCED 

112:  i=ILENO 

113:  SFIN 
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EXAMPLE  5.   USING  PL0T2  AND  SUBPROGRAM  CONV  FOR 
COMPLICATED  DATA  TRANSFORMATION 


The  reduction  of  data  using  SPEED2  can,  of  course,  be  considerably  more 
complex  than  presented  in  example  2.   In  this  example,  subprogram  CONV  is 
used  with  FORTRAN  code  to  provide  complicated  data  reduction  and  analysis. 

Explanation   (numbers  refer  to  lines  within  the  example) : 

1.  Standard  UNIVAC  1108  EXEC  8  run  initiation  card. 

2.  Copy  the  mass  storage  file  SPEED2*SPEED2  containing  all  the 
subprograms  of  SPEED2  into  the  temporary  workspace  file  TPF$. 

3-5.      Call  the  FORTRAN  language  processor  to  compile  the  main  program 
SPEED2,  changing  the  size  of  the  data  arrays  to  NR0W=51  and 
NC0L=36  to  allow  up  to  36  columns  and  51  rows  of  data  (note  that 
one  extra  column  is  needed  by  SPEED2  over  and  above  the  number 
columns  needed  by  the  user) . 

6-7.       Call  the  FORTRAN  language  processor  to  compile  the  subprogram 

CONV  to  provide  FORTRAN  changes  for  data  reduction.   Insert  the 
FORTRAN  code  that  follows  in  the  runstream  after  line  17. 

8-9.      Call  subprogram  FIND  to  determine  the  location  of  instrument 

number  126.  The  subscript  (column)  of  the  array  REED  containing 
the  readings  from  instrument  number  126  is  returned  in  the  vari- 
able L126. 

10.       Establish  the  variable  MAXROW  as  the  maximum  number  of  readings 

from  instrument  number  126.   This  variable  will  be  used  throughout 
as  the  maximum  number  of  readings  for  all  instruments. 

11-14.     Convert  the  readings  of  instrument  number  126  with  a  simple 
FORTRAN  do  loop. 

15-34.     Similar  conversions  for  other  instruments. 

35-36.  A  more  complicated  conversion  on  several  instruments  by  using  an 
additional  FORTRAN  DO  loop  with  instruments  numbered  129  through 
134. 

37-4  3.     Convert  the  millivolt  output  for  these  instruments  into  meaningful 
units . 

44-46.     Create  new  instruments  (which  must  be  defined  in  instrument  cards) 
numbered  32  9  through  334  and  set  the  maximum  number  of  readings 
for  these  instruments  by  letting  MAXR(i)  equal  MAXROW  for  these 
instruments. 

47-54.     Define,  the  readings  for  these  user  created  instruments  as  con- 
versions of  readings  from  instruments  scanned  by  the  data  acqui- 
sition system. 

55-97.     Similar  conversions  for  other  instruments. 

98-121.    Create  four  new  instruments  as  different  conversions  from  a  single 
instrument. 
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122.  Call  the  @MAP  processor  (the  collector)  to  collect  together 
the  relocatable  elements  of  the  subprograms  of  the  SPEED2 
system  to  produce  an  absolute  element  for  execution. 

123.  Assign  a  temporary  mass  storage  file  called  10. 

124.  Execute  the  absolute  element  SPEED2  created  earlier  with  the 
@MAP  processor. 

125-130.   SPEED2  data  cards  Al  and  A2 ,  PL0T2  data  cards  Al ,  A2,  Bl  and  B2 . 

131-165.   PL0T2  data  cards  B3  —  instrument  definition  cards  for  instruments 
to  be  processed. 

166.      PL0T2  data  card  B4  signals  the  end  of  the  set  of  instrument  defin- 
ing cards. 

167-170.   PL0T2  data  cards  B5  specifying  conversion  coefficients  for  instru- 
ment types  1,  2,  3,  and  4. 

171.  PL0T2  data  card  B6  signals  the  end  of  the  set  of  coefficient  cards, 

172.  Element  TEST17  in  the  mass  storage  program  file  RAW-DATA  contains 
raw  data  images  in  the  format  of  the  data  acquisition  system 
prepared  by  using  PLOTl  or  PL0T2 .   The  (SADD  control  statement  is 
used  to  add  into  the  runstream  at  this  point  the  entire  contents 
of  the  element.   These  are  PL0T2  data  cards  part  E. 

173-216.   Several  sets  of  four  cards  to  generate  separate  printer  plots. 

217.  A  blank  card  signals  the  end  of  the  plot  generating  cards. 

218.  Copy  the  temporary  mass  storage  file  named  10  containing  the 
reduced  data  output  by  SPEED2  (NPNCH=10)  into  permanent  storage 
in  the  element  named  TEST17  within  the  mass  storage  program  file 
named  REDUCED-DATA. 

219.  Standard  UNIVAC  1108  EXEC  8  run  termination  card. 
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EXAMPLE 


THE  USE  CF  SUBPROGRAM  CONV  FCR  CCMPLICATED  DATA  TSANSFOSMATION 


1 

z: 

3: 
4: 

5! 

6; 

7; 

s: 

9: 
iO: 
11 
iz: 
15: 
14: 

15! 

16: 
17: 

is: 

19: 

20 
21 

22: 

23: 
24: 
25: 
26: 
27: 
28: 

2? 

36  ; 

31 

32J 

33: 

34: 

35; 

36; 

37: 

38: 

39: 

4C; 

41 

42: 

43; 

44: 

45: 

46: 

47: 

48: 

49: 

50; 


SRUN,  M    TEST17.00000-AAAAAA,PF.OJECTi4t20  0 
fflCCPY    SPEED2*SPEED2. tTPFS. 
SFORiS    SPEED2 
-25,25 

PARAMETER    NR0W=51,     NC0L=36 
fflFOR. S    CONV 
-17 
C    **♦    ZX    CO    ***    LIRA    32062    *** 

CALL    FIND(126,L12e.KH,NC0L) 

MAXR0W=MAXr(L126)  S  ESTABLISH  MAXROW  FOR  ALL  INSTRUMENTS 

00  50  L=1,MAXR0M 

Y=REED{L.L126) 

REED(L.L126)=-.000435+.014073*Y+,000  033*( Y**2) 
50  CONTINUE 
C  ***  10%  CO  ***  LIRA  3C759  **♦ 

CALL  FIND( 123,L123.KH, NCOL) 

DO  60  L=1,MAXR0W 

Y=REED<L.Li23) 

IF( Y.LE.l.) REED (L,L 123 )=.C769231*Y 

IF(Y.GT,1. ) 
1     REEO(L.L123J=-.04  2538+.077776*Y+.0  0013  0*( Y**2} +. 000001 *( Y**3 ) 
60    CONTINUE 
C    ♦*♦    20%    C02    ***    LIRA    32371     *** 

CALL    FIND(121.L121 ,KH, NCOL) 

DO    70    L=1,MAXR0W 

Y=REED(L-.L121) 

REED(L.L121)=.1207B22+.1406&10*Y+.000  4877*(Y**2)+.OOOOOiO*{y**3) 
70  CONTINUE 
C  ***  5X  CO  **♦  BEC<MAN  1521-E  *♦* 

CALL  FiND<128,L128,KH,NC0Li 

DO  ICO  L=1,MAXR0W 

Y=REED(L.L128) 

REED(L,L128)=0«05*Y 
100  CONTINUE 
C  ***  SMOKE  METERS  *** 

DO  90  1=129,134 

CALL  FIND(I-.LINST.  KH,NCCL) 

0RIGNL=REED(1,LINST) 

DO    80    L=1.MAXR0W       S    DETERMINE    X    TRANSMISSION 

REED(L,LINST)=REED(L.LINST)/0RIGNL*100. 

IF  iREED(L,LINST)cGTelOOo )  SEED ( L , LINST )= 1 0 0. 

IF  (REED(L,LINSTJ.LT.O.)  REED(L . L INST) =0. 
80  CONTINUE 

J=I+2C0 

CALL    FIND( J, JINST, KH,NCOL) 

MAXR( J1NSTJ=MAXRCW 

PATH=0»7684 

IF(J.GT.331)     PATH=0.7430 

DO    85    L=1.MAXR0W       3    DETERMINE    OD/M 

IRANS=REED(L.LINST) 
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Si:  IFCTRANS.LT. 0.001)  TRANS=0.00l 

52:  REEDiL, J1NST)=( ALDG10( XOOB/TaANS) )/PATH 

53:  85  CONTINUE 

54:  90  CONTINUE 

55:  C  ***    02  READINGS  *** 

56:  OO  130  K=125*127 

57:  I=K 

58:  IF(K.EQ»126)  1  =  124   3>  00  CHANNELS  124t  125.  127 

59:  CALL  FINDd  tLINST.KH.NCOLi 

60:  ORIGNL=REED(l.LINST) 

6i:  DO    12©    L=1.MAXR0W       a    COMPUTE    X    CONCENTRATION 

62:  {^EED(L.LINST)=REED(L«LINST))I<21«/0SUGNL 

63:  120  CONTINUE 

64:  J=I-t-200 

65:  CALL  FIND(J.JINST.KH,NCOL) 

66:  MAXR( JINST)=MAX^OW 

67:  DO  125  L=1,MAXR0»I   8  COMPUTE  (CHANGE  IN  X  CONCENTRATION)  =  (%  DEPLETION) 

68:  REED(L. JINST)=21oO-REED(L.LINST) 

69:  125    CXINTINUE 

70:  130    CONTINUE 

71 :  c 

72:  C  ***  BURN  RATE  OF  CRIB  (PERCENT  LOSS)  **♦ 

73:  c 

74:  C  ORIG  WT  -  CURRENT  WT 

75:  C    PCT  LOSS  = X  100. 

76:  C  ORIG  WT 

77:  C 

78:  CALL  FIND(135.L135.KH,NC0L) 

79:  CALL  FIND(305tL305.KH.NC0L) 

80:  MAXR(L305)=MAXROM 

81 :  0RIGNL=REED(1.L135) 

82:  OO  190  L=1.MAXR0M 

83:  190  f%EEO(L.L305)  =  (OL^IGNL->$EED(L.L135)  )/0RIGNL*100. 

84:  C 

85:  C  **♦  BURN  RATE  OF  CRIB  (PERCENT  LOSS  PER  SECOND)  ♦*♦ 

86:  C 

87:  C    PCT  LOSS    CHANGE  IN  PCT  LOSS  OVER  EACH  10  SEC  INTERVAL 

89:  C       SEC  lOe 

90:  c 

9i:  CALL  FIND(306.L306.KH.NCOL) 

92:  MAXR(L306)=MAXROW 

93:  0RIGNL=REE0(1,L135) 

94:  REED(1.L306)=0. 

95:  DO  200  L=2tMAXROW 

96:  LM1=L-1 

97:  200  REED(L.L30&)=(REEO(L*L305)-REEO(LM1.L305))/10; 

98:  C 

99:  C  ***  BURN  RATE  OF  CRIB  (GRAMS/SEC)  ♦** 

lOO:  C 
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102 
105 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
1  49 
150 


LOAD  CELL  READINGS  IN  GRAMS 

10  SECOND  INTERVAL 

SECOND  INTERVAL 

SECOND  INTERVAL 


CALL    FIND(307«L307.KH,NC0L)        3 

CALL    FIND(30e9L308t<H, NCOL)        3 

CALL    FIND(309tL30S.KH,NCCL)        S    30 

CALL    FIND(310,L310 tKH.NCOL)        S     60 

MAXR(L307)=MAXROW 

MAXR(L308)=MAXROIK 

MAXR(L30S)=MAXR0W 

MAXR1L310>=MAXROW 
CONVERT    LOAD    CELL    READINGS    FROM    POUNDS    TO    GRAMS 

DO  210  L=1.MAXR0W 

REED(L.L307J=REEO(L«L135)*453.6 
DETESMINE    BURN    SATE     ( G/S )     OVER    A    10-SECi     30-SEC. 

DO    220    L=2tMAXR0W 

LM1=L-1 

REEO(L,L308)=(REED(LM1,L307)-REED{L.L307) )/10. 

DO    230    L=4iMAXR0W 

LM3=L-3 

REED(L,L309)=(REED(L13tL307)-REED(LtL397))/30. 

DO    240     L=7.MAXR0W 

LM6=L-6 

REED {L,L310)=C REED (LM6.L307)-REED(L.L307))/60. 
aMAP,S    MAP,SPEED2 
SASGtT    10* 


210 

C 


220 


230 


240 


60-SEC     INTERVAL 


a     10-SEC    INTERVAL 


a    30-SEC    INTERVAL 


a    60-SEC     INTERVAL 


aXQT  SPEED2 
1 
0     1 

C 

0 

3    -1 

0 

0     0     0 

0     1 

le 

1     0 

***    MXDBILE 

HOME  FIRE  TEST  17    ♦ 

00007102TC 

1 

TC-  L 

[VINGF.M,CENTR 

00007202TC 

2 

TC-  LIVINGRM.CENTR 

0C007302TC 

23 

TC-  CORSIDCRtNORTH 

0C007402TC 

37 

TC-  CORRIDOR 

I.  SOUTH 

00012C04RAD 

1 

RADIDMETER- 

LIVINGR 

00012902HSM 

4 

HORIZ 

SMOKE 

METER- 

00C13002HSM 

5 

HORIZ 

SMOKE 

METER- 

000131&2HSM 

6 

Hoaiz 

SMOKE 

METER- 

00013202HSM 

8 

HORIZ 

SMCKE 

METER- 

eOOl3302HSM 

9 

HORIZ 

SMOKE 

METER- 

OC01340  2HSM 

10 

HORIZ 

SMOKE 

METER- 

00032902HSM 

4 

HORIZ 

SMCKE 

METER- 

00033002HSM 

5 

HORIZ 

SMCKE 

METER- 

00033102HSM 

6 

HORIZ 

SMOKE 

METER- 

30033202HSM 

8 

HORIZ 

SMOKE 

METER- 

e0033302HSM 

9 

HORIZ 

SMOKE 

METER- 

0&0334S2HSM 

IC 

HORIZ 

SMOKE 

METER- 

0  001 230 2C0 

13 

CO   - 

CENTS 

CF  LIVI 

00012102C02 

14 

C02  - 

CENTR 

OF  LIVI 

00C12402O2 

15 

02   - 

CENTR 

OF  LIVI 

♦*♦ 


MAY  ISf  1978 


*** 


1  INCH  FROM  CEILING 
10  INCH  FROM  CEILING 

1  INCH  FROM  CEILING 
32  INCH  FROM  CEILING 
M, CENTR  FLOOR  LEVEL  I 
CCRRIDCRtNORTH  2  FT  ABV 
COF.RlDORfNORTH  4  FT  ABV 
CORRIDOR. NORTH  6  FT  ABV 
CORRIDOR, SOUTH  2  FT  ABV 
CORRIDOR. SOUTH  4  FT  ABV 
CORRIDOR. SOUTH  6  FT  ABV 
CORRIDOR-,  NORTH  2  FT  ABV 
CORRIDOR, NORTH  4  FT  ABV 
CORRIDOR. NORTH  6  FT  ABV 
CORRIDOR, SOUTH  2  FT  ABV 
CORRIDOR, SOUTH  4  FT  ABV 
CORRIDOR. SOUTH  6  FT  ABV 
NGRM  AT  5  FT  ABOVE  FLOOR 
NGRM  AT  5  FT  ABOVE  FLOOR 
NGRM  AT  5  FT  ABOVE  FLOOR 


54511 

FLR  ( 
FLR  C 
FLR  < 
FLS  ( 
FLR  ( 
FLR  ( 
FLR  ( 
FLR  ( 
FLR  ( 
FLR  { 
FLR  ( 
FLR  ( 
LIRA 
LIRA 


TRANS  J 
TRANS) 
TRANS) 
TRANS) 
TRANS) 
TRANS) 

OD/M) 

DD/M) 

OD/M) 

OO/M) 

OD/M) 

CO/M) 
30759 
32371 
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0001250202 
0001 260 2C0 
0001270202 
0C012802C0 
0003240202 
OC03250202 
0003270202 
000 13 50 3L  CELL 
00030502%  LOSS 
0003060 2X/SEC 
06030702GRAMS 
00030 e02G/S  10 
0C030902G/S  30 
00031002G/S  60 
OOOOOOOITIME 

1.0 
leO 
.0940 
2c  69 


24 

02 

16 

CO 

17 

02 

25 

CD 

15 

02 

24 

02 

17 

02 

DOOR   OF  LIVINGRM  AT  1  IN  ABOVE  FLOOH 

SOUTH  CORRIDOR     AT  5  FT  ABCVE  FLOOR   LIRA  32062 

SOUTH  CORRIDOR     AT  5  FT  ABCVE  FLODK 

SOUTH  CORRIDOR     AT  3  FT  ABOVE  FLOOR 

CENTER  OF  LIVINGKM,  5  FT  ABV  FLR  (CHG  IN  CONC) 

DOOR  OF  LIVINGRM,     1  IN  ABV  FLR  (CHG  IN  CONC) 

SOUTH  CORRIDOR.       5  FT  ABV  FLR  (CHG  IN  CONC) 

LOAD  CELL  (POUNDS) 

BURN  RATE  IN  PERCENT  LOSS 

BURN  RATE  IN  PERCENT  LOSS  PER  SECOND 

LOAD  CELL  (GRAMS) 

BURN    RATE     IN    GRAMS    PEK    SECOND     ( 1 0-SEC     INTERVAL) 

BURN  RATE  IN  GRAMS  PER  SECOND  (30-SEC  INTERVAL) 

BURN  RATE  IN  GRAMS  PER  SECOND  (60-SEC  INTERVAL) 

TIME  IN  SECONDS  AFTER  IGNITION 


660.0 


999 


999 


aADD    RA«-DATAeTEST17 

PLOT    OCOO    0071    0072    0073    007* 

0*0  1250*  OoO  lOOOe 

THERMOCOUPLES-    HV    RM    CENTER     (1.10     IN),     CORR    N    (1     IN),     COP.R    S    (32     IN) 

DEGREES  C  SECONDS  AFTER  IGNITICN 

PLOT  0000  0120 

0.  1250.         0.         5. 

RADIOMETER-  CENTER  OF  LIVING  ROOM,  FLOOR  LEVEL 

WATTS  PER  SQUARE  CM  SECONDS  AFTER  IGNITION 

PLOT  eOOO  0329  033©  0331 
0*  1250*       Oo  7o5 

SMOKE  METERS-  CORRIDOR,  NORTH  (2,4,6  FT  ABOVE  FLCOR) 

OPTICAL  DENSITY  PER  METER  SECONDS  AFTER  IGNITICN 

PLOT  0000  0332  0333  0334 
0*  1250e       Oo  7o5 

SMOKE  METERS-  CORRIDOR,  SOUTH  (2.4,6  FT  ABOVE  FLOOR) 

OPTICAL  DENSITY  PER  METER 
PLOT  0000  0124  0125  0127 
0*  1250o       0«  25e 

02-  LIV  RM  CENTER  (5  FT),  LIV  RM  DOOR  (1  IN) 

PERCENT  GAS  IN  THE  ATMOSPHERE 
PLOT  OOCO  0123  0121 

0.  1250.       0.  23. 

10%  CO*   20%  C02-  LIVING  ROOM  CENTER  (5  FT  ABOVE  FLCOR) 
PERCENT  GAS  IN  THE  ATMOSPHERE 
PLOT  OCOO  0126  3128 

0*  1250*       Oo  So 

2%  CO  (5  FT  UP),  5%  CO  (3  FT  UP)  -  CORRIDOR  SOUTH 


SECONDS  AFTER  IGNITION 


CORR  SOUTH  (5  FT) 

SECONDS  AFTER  IGNITION 


SECONDS  AFTER  IGNITICN 


PERCENT  GAS  IN  THE  ATMOSPHERE 


SECONDS  AFTER  IGNITICN 
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201:  PLOT  0000  0135 

202:  0*  1250*        Oe         ♦D* 

203:  LOAD  CELL 

204:  CRIB  WEIGHT  JN  POUNDS  SECONDS  AFTER  IGNITION 

205:  PLOT  0600  0306 

206:  0*  1250*       Oe  50o 

207:  BURN  RATE  IN  GRAMS  PER  SECCND  (13-SECOND  INTERVAL) 

208:  GRAMS  PER  SECOND  SECONDS  AFTER  IGNITION 

209:  PLOT  0000  0309 

210:  0«  1250*         Oe         50e 

211:  BURN  RATE  IN  GRAMS  PER  SECOND  (30-SECOND  INTERVAL) 

212:  GRAMS  PER  SECOND  SECONDS  AFTER  IGNITION 

213:  PLOT  OOCO  0310 

214:  0.  125C.         0.         50. 

215:  BURN  RATE  IN  GRAMS  PER  SECOND  (.60-SECOND  INTERVAL) 

216:  GRAMS  PER  SECCND  SECONDS  AFTER  IGNITION 

217: 

218:  aCCPYiI     10.. REDUCED-DATA. TEST17 

219:  fflFIN 
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